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ARMAZENAGEM DE PROGRAMAS 


Endereço inicial do BASIC. Como fazer a leitura da 
memória. Tradução dos códigos. Procurando pe- 
las variáveis. Variáveis numéricas. Cadeias de ca- 
racteres e matrizes. Como a memória do 
computagor é utlZada. ssa E 1101 





UMA PLANILHA ELETRÔNICA (1) 


O que é uma planilha de cálculo? Organize a infor- 
mação. Por que usar uma planilha. Cálculos feitos 
pelo computador. Usos da planilha eletrônica. Pro- 
jeções. Uma planilha típica. Faça sua própria pla- 
nilha. Planejamento e desenho. Rótulos para as 
linhas e colunas. Como preencher as células. O co- 
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AVALANCHE: PEDREGULHOS (1) 


Verificação do nível do jogo. Rotina de movimen- 
tação da pedra. Animação com duas estruturas. 
Rolando pela encosta. A pedra chega ao mar. De 
volta ao topo. Willie foi atingido?............ 1116 
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PLANO DA OBRA 


id N PUT” é uma obra editada em fascículos semanais, e cada 
conjunto de 15 fascículos compõe um volume. A capa para enca- 
dernação de cada volume estará à venda oportunamente. 


COMPLETE SUA COLEÇÃO 


Exemplares atrasados, até seis meses após o encerramento da coleção, pode- 
rão ser comprados, a preços atualizados, da seguinte forma: 1. PESSOAL 
MENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribuidor local, 
cujo endereço poderá ser facilmente conseguido junto a qualquer jornaleiro 
de sua cidade. Em São Paulo, os endereços são: rua Brigadeiro Tobias, 773, 
Centro; avenida Industrial, 117, Santo André; e no Rio de Janeiro: avenida 
Mem de Sá, 191/193, Centro. 2. POR CARTA — Poderão ser solicitados exem- 
plares atrasados também por carta, que deve ser enviada para DINAP — Dis- 
tribuidora Nacional de Publicações — Números Atrasados — Estrada Velha 
de Osasco, 132, Jardim Teresa — CEP 06000 — Osasco — SP. Não envie pa- 
gamento antecipado. O atendimento será feito pelo reembolso postal e o pa- 
gamento, incluindo as despesas postais, deverá ser efetuado ao se retirar a en- 
comenda na agência do Correio. 3. POR TELEX — Utilize o nº (011) 33 670 
DNAP. 

Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Publica- 
ções, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Camarate — Lis- 
boa; Apartado 57 — Telex 43 069 JARLIS P. 

Atenção: Após seis meses do encerramento da coleção, os pedidos serão aten- 
didos dependendo da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre título e/ou autor da obra, além 
do número da edição. 
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ARMAZENAGEM 


DE PROGRAMAS 


O funcionamento do computador desperta 
nossa curiosidade sobretudo quando 
algo não vai bem. Sabendo como os 
programas são armazenados, você poderá 
detectar seus erros com mais facilidade. 


pq E 


O que o computador faz com seu 
programa depois de tê-lo digitado? 

Provavelmente, você sabe que ele é 
armazenado em um lugar especial da 
memória, reservado para programas em 
BASIC, Tem, porém, idéia de onde fi- 
ca esse lugar e de que maneira as linhas 


* ai sum, E 


ENDEREÇO INICIAL 


LA 

NE TRADUÇÃO DOS CÓDIGOS 
E PROCURANDO PELAS VARIÁVEIS 
+ VARIÁVEIS NUMÉRICAS 
E — CADEIAS 


são escritas, para que o computador as 
entenda? 

Na memória do computador, o pro- 
grama se assemelha bastante à listagem 
que você digitou, e muitos dos números 
ali guardados são códigos ASCII, repre- 
sentando as letras. Mas a máquina re- 





| | 


duz algumas palavras — as palavras- 
chave — e, também, introduz informa- 
ções extras entre as linhas, para facili- 
tar sua localização. 

O computador possui ainda uma área 
onde guarda as variáveis criadas pelo 
programa, modificando-as sempre que 
necessário. Quando digitamos, por 
exemplo, 10 LET A = 6, a máquina não 
só armazena essa linha como coloca o 
nome e o valor da variável nela contida 
em outro local da memória. 

Vejamos tudo isso um pouco mais de 
perto. Para começar, digite o próximo 
programa exatamente como está. No 
Spectrum, não deixe nenhum espaço. 
Nos outros micros, coloque um espaço 
apenas após as palavras PRINT e LET. 


hu ES nelá lo] 


10 PRINT “INPUT” 
20 LET A=2 

30 PRINT A 

40 STOP 





A armazenagem de um programa em 
BASIC, no MSX, começa no endereço 
32769. Para ler os códigos armazenados, 
a partir desse endereço, dê o seguinte co- 
mando direto: 


FOR 1=32769 TO 32808:PRINT PEEK 
(1) ;” "rENEXT I 


Obteremos, então, este bloco: 


15 128 10 Ô 145 
32 34 73 78 80 


85 B4 34 0 25 
128 20 0 136 32 
65 239 19 O 33 
128 30 0 145 32 
65 0 39 128 40 
é] 144 O O 0 


Se você considerar esses números co- 
mo códigos ASCII e tentar relacioná-los 
aos caracteres equivalentes, descobrirá 
que só alguns fazem sentido: 


? ? ? 7 ? 
eBp ú I N p 
U T e ? ? 
? ? ? ? esp 
h ? ? ? ? 
? ? ? ? esp 
A ? ? 7 7 
? ? ? ? ? 


Já se vê parte do programa. Mas on- 
de estão o PRINT, que antecede a pa- 
lavra INPUT, e os demais comandos? 

O MSX usa um artifício para econo- 
mizar memória: codifica as palavras e 
os caracteres reservados, substituindo- 
Os, ao armazenar o programa, por es- 


ses códigos, usualmente chamados to- 
kens (do inglês: símbolo, indicação). 

Se, posteriormente, você tiver interes- 
se em obter uma lista dos tokens, utili- 
ze este programa: 


10 E=14962 

20 C=65 

30 PRINT CHAS(C); 

40 A=PEEK(E) 

50 B=PEEK (E+1) 

60 AS=CHAS (A) 

70 IF A<128 THEN PRINT AS; :GOTO 
110 

80 PRINT CHARS(A-128); TAB(B);R 

90 E=E+1 

100 IF PEEK(E+1)<>0 THEN PRINTC 

HRS (CO) 

110 TF PEEK(E+1)<>20 THEN 150 


L20 C=C+]:TF €=89 THEN 170 

125 B5S=CHRS(C): PRINT | 
L30 IF B8="J" OR B$="Q0" THEN 15 
Ú 

140 PRINT BS; 

L50 Es=E+1 

160 IF E<=15649 THEN 40 

170 E=15654:PHINT 

180 A=PEEK (E): B=PEEK (E+1) 

190 IF A>127 THEN PEINT CHARS (A- 
128); 

Z00 IF A<1LZ8 THEN PRINT CHRS(A) 
210 PRINT TAB(B);B 

220 E=E+2: PRINT 

230 [IF Ec<lb5673 THEN GOTO LBQ 


Interpretando os tokens, nosso blo- 
co ficará assim: 


? ? ? ? PRINT 
e8p n I N P 

U T E ? ? 

? ? ? LET esp 

A = ? ? ? 

? ? ? PRINT esp 

h ? ? P ? 

? STOP ? ? ? 


Na terceira, 174, 27º e 35º posições 
encontra-se a sequência 10, 20, 30 e 40. 
Esses bytes guardam a parte baixa (L) 
do número de cada linha e cada byte 
subsequente guarda a parte alta (H). Os 
dois bytes anteriores armazenam, do 
ço modo, o endereço da próxima 
inha. 


120L 120H 10 Q PRINT 
esp : I N Pp 

U E m 4 130L 
130H 20 O LET esp 
A = ? 140L 
140H 30 ] PRINT esp 
E F fimL fimH 40 

O STOP ? rj ? 


Para os bytes finais, o valor O signi- 
fica fim de linha; dois O seguidos indi- 
cam fim de programa. O valor 2, atri- 
buiído à variável A, é armazenado no 
23º byte, de uma forma relativamente 


complicada, que não cabe aqui exami- 
nar. Finalmente, temos o diagrama 
completo de uma linha na RAM: 


120L 120H 10 O PRINT 
esp ” I N p 

U T é fiml  130L 
130H 20 O LET esp 

A = Z fiml 140L 
140H 30 O PRINT esp 
A fiml  fiml fimH 40 

O STOP  fiml fimpr fimpr 


VARIAVEIS NUMERICAS 





Já sabemos como um programa é co- 
locado na memória do micro. Veremos 
agora como o valor de uma variável é 
armazenado na RAM, Lembre-se de que 
o MSX possui a função VARPTR (do 
inglês VARiable PoinTeR), que mos- 
tra o endereço a partir do qual está guar- 
dada determinada variável. 

Vamos explorar, em primeiro lugar, 
as variáveis numéricas. 

Use NEW para apagar o programa 
anterior e execute este: 


10 DEFINT A 

20 A=] 

30 V=VARPTR(A)-2 
40 FOR K=sV TO V+3 
50 PRINT PEEKLK); 
60 NEXT 


Você obterá os seguintes números: 
65 02090 


O primeiro e o segundo bytes arma- 
zenam o nome da variável — por Isso, 
só as duas primeiras letras dela impor- 
tam. Como se trata de uma variável do 
tipo inteira, bastam os dois bytes seguin- 
tes para guardar seu valor nas duas di- 
ferentes modalidades (parte baixa, L, e 
parte alta, H). 

Faça as seguintes substituições no 
programa e volte a executá-lo: 


10 DEFSNG A 
40 FOR K=V TO V+6 


Temos então estes números: 


63 O 6 18 0 U 


Os dois primeiros bytes dão o nome 
à variável. Estamos lidando agora com 
uma variável de precisão simples e, por 
isso, precisaremos de cinco bytes para 
armazenar seu valor. O primeiro deles 
cuida do expoente, guardando o resul- 
tado da soma de seu valor com o núme- 
ro 65, para facilitar o manejo de expoen- 
tes negativos. Os três bytes restantes 
encarregam-se de guardar o número 
propriamente dito. 

Faça estas novas substituições e exe- 
cute o programa. 




















10 DEFDBL A 
40 FOR KV TO V+9 

Aparecem na tela os números: 
65 0 65 16 0 000 00 


Como você pode observar, o nome e 
o expoente continuam sendo armazena- 
dos da mesma maneira, mas são neces- 
sários sete bytes para guardar o número, 





VARIAVEIS STRING 


Para armazenar as variáveis do tipo 
string, o MSX utiliza três bytes, Digite 
o próximo programa e veja como eles 
são aproveitados. 


10 AG=TABC” 

20 V-VARPTR(AS)-2 

30 FOR K=V TO V+4 

40) PHINT PREK(K) O"; 
50 NEXT 


Você deve ter obtido os números: 


65 0 3 9 128 


Os dois primeiros bytes contêm o no- 
me da variável; o terceiro, seu compri- 
mento; os dois últimos indicam o ende- 
reço no qual ela se encontra, ou seja, sua 
posição exata na parte da RAM que ar- 
mazena o programa. Este é um artifício 
que o MSX utiliza para economizar me- 
mória. Se houver alguma modificação 
na linha que contém a variável (a linha 
10), que impeça o computador de usá- 
la, ele colocará seu conteúdo em outro 
endereço. 


VARIAVEIS INDEXADAS 





Quando você define uma matriz com 
o comando DIM(n), o MSX reserva, na 
memória, um espaço para n+ 1 variá- 
veis, pois a primeira delas tem indice 0. 
Execute o próximo programa e veja co- 
mo elas são armazenadas. 


10 DEFINT A 

20 DIM A(Z) 

30 A(0)=5:A(I)=10:A(2)=15 
40 V=VARPTR(A(O)) 

50 FOR K=V TO V+l6 

60 PRINT PREK(K); 

70 NEXT K 


Você deve ter obtido: 


O DZ ES DD | dl 3 
os OO briS o 


Os três primeiros bytes zerados ini- 
cializam a área de armazenamento. O 
byte com o número 2 indica que a va- 
riável é do tipo inteira — seria 4, para 
variáveis de precisão simples, e 8, para 


- | ] E = | 
| | | 
| | 
| | 


variáveis de precisão dupla, Os dois 
bytes seguintes fornecem o nome da va- 
riável. O sétimo e o oitavo indicam 
quantas posições faltam para o fim des- 
sa área. O nono byte contém o número 
de dimensões, e o décimo e o 11º, o ta- 
manho dessas dimensões. Em seguida 
vêm os números, armazenados confor- 
me o tipo de cada variável, 

Para as variáveis indexadas do tipo 
string pouca coisa mudaria, O quarto 
byte, que indica o tipo de variável, te- 
ria O número 3, e, em vez de guardar um 
valor numérico, conteria os endereços 
dos caracteres, como no armazenamen- 
to de strings comuns. 


No Spectrum, há dois endereços de 
memória que, juntos, nos dão o ende- 
reço a partir do qual está armazenado 
o programa em BASIC. Acesse-os com 
o seguinte comando direto: 


PRINT PEEK 23635+256*PEEK 23636 


Você obterá como resposta 0 núme- 
ro 23755, em um Spectrum de 48kK. Se 
você achou um número diferente e tem 
certeza de que digitou o comando cor- 
retamente, substitua 23755 pelo valor 
encontrado, no próximo comando. 


FOR 1=23755 TO 23755+40:PRINT 
PEEK 1;" ";:NEKXT 


Você obterá os seguintes números: 


O 10 9 Õ 245 
34 73 7B 80 85 
84 34 13 Q 20 
11 Ô 241 65 61 
20 14 Õ Ô 2 

Ú Q 13 Ô 30 
3 0 245 65 13 
Q 40 2 Ú 226 
13 


Agora, usando os códigos ASCII, 
observe como fica o quadro: 


sda Ta 
egg) ato) 
a DS RS RS a RS e ARS 
o A e O 
RS RD O RS] 


Você já pode ver parte do programa, 
mas falta decifrar vários códigos. 

Provavelmente o comando PRINT 
estaria antes de “INPUT'”, mas o que 
vemos nessa posição é o número 245. O 
Spectrum usa valores acima de 164 pa- 
ra codificar as palavras reservadas, Se 


você consultar a lista delas, no manual, 
verá que 245 é o valor, chamado token 
(do inglês: símbolo, indicação), para 
PRINT. Consultando a lista de tokens, 
localizaremos os comandos. 


? ? f ? PRINT 
é I N P U 

Éh " ? ? f 

? ? LET A " 

P; f ? ? ? 

f ? ? ? ? 

ii ? PRINT À ? 

? ? ? ? STOP 
? 


No segundo, 15º, 30º e 37º bytes, 
encontra-se a sequência 10, 20, 30, 40, 
Esses bytes são usados para guardar a 
parte baixa (L) do número da linha, as- 
sim como o byte anterior guarda a par- 
te alta (H). Os dois bytes seguintes da 
linha indicam seu tamanho (excluídos os 
quatro primeiros), sendo que, agora, a 
parte baixa aparece primeiro. 

Temos, assim, o seguinte diagrama: 


O 10 compL compH PRINT 
Ê I N Pp U 

T ? O 20 
compL compH LET A = 

ê ? ? 7 7 

? 7 ? Õ 30 
compL compH PRINT A ? 

O 40 compL compH STOP 
o 


Vejamos, agora, os bytes finais. O 
valor 13 é usado para indicar fim de li- 
nha (fdl). O número 14 indica que os 
próximos quatro bytes são uma forma 
codificada de uma constante numérica 
— no caso, 2. 


O 10 compL compH PRINT 
é I N P U 

T o! fdl À) 20 
compL compH LET E = 

EA cnum O | 2 

O O fdl O 30 
compL compH PRINT A fdl 

f] 40 compL compH STOP 
fdl 





ARMAZENAGEM DAS VARIÁVEIS 


Vimos como um programa em BA- 
SIC é armazenado. Todas as variáveis 
definidas por ele, porém, são guardadas 
em uma área separada. Dois endereços 
— 23627 e 23628 — contêm o inicio des- 
sa área, e dois outros — 23641 e 23642 
— apontam para o fim. Para imprimir 
todo o conteúdo da memória, entre es- 
te programa: 


10 FOR A=PEEK 23627+256*PEEK 
23628 TO PEEK 23641+256*PEEK 














23642 
20 PRINT PEEK A;” *; 
30 NEXT A 





VARIAVEIS 


NUMERICAS 


Em primeiro lugar, vamos definir 
uma variável, acrescentando esta linha 
ao programa anterior, 


1 LET B=150000 


Executando o programa, temos: 


98 146 18 124 O O 225 0 
B ——— valor ————s 


O número 98 é o código para a letra 
B mais 32 — isto mostra ao computa- 
dor que ele está lidando com uma va- 
riável numérica. O valor 150000 é arma- 
zenado nos cinco bytes seguintes, na for- 
ma de ponto flutuante. Os dois últimos 
bytes, 225 e O, indicam o fim da área de 
variáveis. Como eles sempre aparecerão 
na mesma posição, deixaremos de 
mencioná-los nos próximos exemplos. 

As variáveis com nomes longos são 
armazenadas da mesma maneira, ape- 
sar dos caracteres terem seus códigos um 
pouco alterados. Tente isto: 


1 LET MARIA=30 
Você deve ter obtido os números 


173 97 114 105 225 
M A R I A 


Oo 03000 
t—— valor —s 


Os primeiros cinco bytes guardam o 
nome MARIA. A primeira letra soma- 
se o número 96, indicando um longo no- 
me; às do meio, o número 32; à ultima 
letra é adicionado 160, indicando o fim 
do nome. Os últimos cinco bytes arma- 
zenam o valor numérico. 


“VARIÁVEIS STRING E INDEXADAS 





A próxima linha de programa mos- 
tra a maneira como as variáveis do tipo 
string são armazenadas: 


1 LET. AS=" STRING” 
Você deve ter obtido: 


65 6 0 63 84 827378 71 
A 8 TT RR ING 


O nome da variável, A, vem seguide 
de dois bytes com a quantidade de ca- 
racteres armazenados. Como você po- 
de notar, estes caracteres são represen- 
tados pelos códigos em ASCII. 


| | 
| | 


Tente agora uma variável numérica 
indexada: 


1 DIM F(2) 
2 LET F(I)=100 
3 LET F(2)=200 


Executando o programa, temos: 


aee 1301200010000 
&-—= valor —> 


O 0.200 00 
é— valor —s 


O primeiro byte é F mais 64, indican- 
do uma variável numérica indexada. Os 
dois próximos bytes, com a parte baixa 
primeiro, indicam o número de bytes se- 
guintes — 13, O próximo byte diz o nú- 
mero de dimensões e os dois seguintes 
mostram o número de elementos reser- 
vados. Só então se chega aos dois valo- 
res armazenados, que ocupam cinco 
bytes cada um. 

Veja, finalmente, as variáveis inde- 
xadas do tipo string. Digite estas linhas 
e execute O programa. 


1 DIM B5(2,8) 


2 LET BS(1)="NOVA” 
3 LET B$(2)="CULTURAL” 


Observe como fica o quadro: 


194 21022080 
B 


78 79 B6 65 32 32 32 32 
NO VV A 


67 85 76 84 
Cc uU 


85 82 65 76 
b TT UERR AL 


O primeiro byte é o código de B mais 
128, para variáveis indexadas do tipo 
string. Os dois próximos mostram quan- 
tos bytes ainda serão encontrados até o 
fim da área de variáveis. O byte seguin- 
te guarda o número de dimensões — 
neste caso, 2. Outros dois pares de bytes 
contêm, respectivamente, o número de 
elementos e o comprimento máximo de- 
les. Os bytes restantes guardam os ca- 
racteres, sendo que o código 32 (espa- 
ço) completa o espaço reservado para 
um elemento, se este for menor que o 
comprimento reservado. 


No TRS-Color, existem dois endere- 
ços que, juntos, indicam o início da área 
de programas em BASIC. Esses ende- 


reços são 25 e 26 (decimal). 
Digite o seguinte comando: 


PRINT PEEK(25)*256+PEEK (26) 








Se seu computador acabou de ser li- 
gado, a resposta será 7681. Caso obte- 
nha outro número, substitua-o no se- 
guinte comando que irá executar: 


FOR I=76B1 TO 7681+39:PRINT 
PEEK(I)::NEXT 1 


Você deve ter obtido este bloco: 


30 15 0 10 135 
32 34 73 7B 80 
85 84 34 0 30 
25 O 20 142 32 
65 203 50 0 30 
33 0 30 135 32 
65 (é 30 39 0 
40 146 0 0 0 


Agora, usando os códigos ASCII, 
observe como fica o quadro: 


f ? ? ? ? 
esp á I N P 

U T " ? ? 

? ? ? ? esp 
A ? Pd ? ? 

? ? 7 ? esp 
Ã ? ? ? 

f 7 ? E ? 


Já podemos ver uma parte do progra- 
ma em BASIC, mas existem ainda mui- 
tos pontos de interrogação. 

Você poderia esperar que a palavra 
PRINT aparecesse antes de “INPUT”, 
no diagrama. Em vez disso, temos o nú- 
mero 135. O computador usa valores 
acima de 127 para representar as pala- 
vras reservadas. O número 135 é o va- 
lor, também chamado token (do inglês: 
simbolo, indicação), para o comando 
PRINT. Com esses valores, você pode 
tornar o diagrama mais completo. 


? ? ? ? PRINT 
esp " 1 N p 

U T ja 7 7 

? ? ? LET esp 

à = 2 ? ? 

? ? ? PRINT esp 
pa ? ? ? 7 

? STOP 2? ? ? 


Se quiser, depois, obter a lista dos to- 
kens, use este programa: 


10 CLEAR 1000:CLS 

20 C=43622:FOR K=0 TO 78 

30 W5(K/39) =WS (K/39) +CHAS (PEEK( 
C)) 

40 C=C+1:IF PEER (C- 
30 

45 IF K=52 THEN C=33155 

50 NEXT 

60 C=43802:FOR K=1 TO J4 

70 FS$=FS+CHAS (PEEK(C)) 

B0 C=C+1:IF PEEK(C-1)<128 THEN 


1)<128 THEN 


85 IF K=20 THEN €=33310 
90 NEXT 








100 PRINT: INPUT” DIGITE O SIMBO' 
LO EM HEXADECIMAL”";TS 

110 TK=VAL("L&AH"+TS) 

120 IF TK>65280 THEN TK=TK-6528 
0:GOTO 210 

130 IF TK<128 OR TK>205 THEN 25 
O 

140 K=-39*(TK>166):P=1 

150 IF K=TK-128 THEN W5=WS (K/39 
):GOTO 180 

160 P=P+1:IF ASC(MIDS (WS (K/39), 
P-1,1))<128 THEN 160 

170 K=K+1:GOTO 150 

180 PRINT:PRINT " SIMBOLO ";TS; 
190 AS=MIDS(WS,P,1):IF AS<CHRS( 
128) THEN PRINT AS; :P=P+1:GOTO 
190 

200 PRINT CHARS (ASC(AS) AND 127) 
“GOTO 100 

210 K=0:P=): IF 
THEN 250 

220 IF K=TK-128 THEN W5=FS:GOTO 
180 

230 P=P+1:IF ASC(MIDS(FS,P-1,1) 
)<128 THEN 230 

240 K=K+1:GOTO 220 

250 PRINT” 
INT:GOTO 100 


Digitando qualquer token, o progra- 
ma fornecerá a função ou comando 
equivalente. Seus valores, em hexadeci- 
mal, vão de 80 até CD, para os coman- 
dos, e de FF80 até FFAI para as 
funções. 

No quarto, 18º, 28º e 36º bytes há 
esta sequência: 10, 20, 30, 40. Esses 
bytes são usados para armazenar a par- 
te baixa (L) do número da linha, en- 
quanto o zero antes deles guarda a par- 
te alta (H). 

Os dois primeiros bytes de cada linha 
são usados para indicar onde começa a 
linha seguinte. Eles podem ser, por 
exemplo, 30 e 15. Multiplicando 30 por 
256 — pois se trata da parte alta — e 
adicionando 15, temos 7695, número 
correspondente ao endereço que contém 
o primeiro byte da linha 20. 

Finalmente, sabendo que o valor O 
significa fim de linha, podemos comple- 
tar o diagrama: 


TK<S128 OR TK>161 


prxlH prxlL O 10 PRINT 
esp * I N PO. 
U T no fdl prx1H 
prxlLt O 20 LET esp 

É = 2 fdl prxlH 
prxlL O 30 PRINT esp 

A fdl prxlH prxlL O 

ao STOP fdl O (O) 


ARMAZENAGEM DAS VARIÁVEIS 





Vimos como um programa é arma- 
zenado. Porém, sempre que se define 
uma variável no programa, ela é colo- 
cada separadamente em duas áreas es- 
peciais. Há dois endereços, 27 e 28, que 


CARACTER ILEGAL ":PR- 


indicam o início da área utilizada para 
guardar variáveis simples. Outros dois 
endereços, 29 e 30, apontam para o iní- 
cio da área de variáveis indexadas. 

As variáveis simples também podem 
ser acessadas por meio do comando 
VARPTR, seguido do nome da variá- 
vel. Então, VARPTR(A) fornecerá a 
localização do valor da variável A. Co- 
mo o nome dessa variável é armazena- 
do imediatamente antes de seu valor, 
usaremos VARPTR(A) - 2. 





VARIÁVEIS SIMPLES 


O próximo programa imprime os seis 
primeiros bytes da área de variáveis sim- 
ples, mostrando como a variável A é ar- 
mazenada na memória. 


1 A=1 

10 V=VARPTR(A)-2 

20 FOR K=V TO V+6 
30 PRINT PEEK(K); 
40 NEXT:PRINT 


Você obterá os seguintes números: 


65 0 129 0 000 
A — valor —s 


A letra A é armazenada primeiro e o 
byte seguinte deixa um espaço reserva- 
do para outra letra. Os cinco bytes res- 
tantes são o número 1, na forma de pon- 
to flutuante. 





VARIAVEIS DO TIPO STRING 


As variáveis string são armazenadas 
de forma muito semelhante. Troque a 
letra A da linha 10 por AA$ e substitua 
a linha 1 por: 


1 AAS="CADEIRA” 
Desta vez, você terá: 


65 193 7 0 38 10 0 
A A 


O nome AA é colocado nos dois pri- 
meiros bytes. Adiciona-se à segunda le- 
tra o valor 128, para indicar que ela é 
uma variável string. O número 7 corres- 
ponde à quantidade de bytes usados 
(conte-os). O 38 e o 10 são, respectiva- 
mente, a parte alta e a parte baixa do 
endereço onde a palavra CADEIRA es- 
tá armazenada. 

Calculando esse endereço, temos 
38*256+ 10, que é igual a 9738. Efeti- 
vamente, esta é a localização da palavra 
CADEIRA no programa em BASIC, O 
TRS-Color, desse modo, economiza me- 
mória, evitando que a informação seja 


duplicada. Mas, assim que se alterar a 
linha ou a variável, esta será colocada 
em um outro lugar, e o endereço calcu- 
lado não será mais o mesmo. Os zeros 
que cercam os dois números mostram 
sua utilidade quando o computador apa- 
ga velhas variáveis e cria outras. 


VARIÁVEIS INDEXADAS 





O próximo programa ajudará a vas- 
culhar a área de variáveis indexadas. 


10 T=1:K=1:V=PEEK (29) *256+PEEK( 
30) 

20 T=PEEK(V+2) *256+PEEK (V+3) 

30 FOR K=V TO V+T-1 

40 PRINT PEEK(K); 

50 NEXT 


Acrescente estas linhas e depois exe- 
cute o programa. 


1 DIM A(0,2) 
2 A(O,0)=10 
3 A(0,2)=20 


Você obterá os seguintes números: 


65 00 24 203014 
À 


132 3200000000 
€— valor —S €- valor - + 


133 32 000 
€— valor —s 


Como sempre, os dois primeiros 
bytes dão o nome da variável, e os dois 
outros indicam o seu comprimento. O 
byte seguinte mostra o número de di- 
mensões, 2, e os dois próximos pares, 
o número de elementos, na ordem inver- 
sa— 0 03€0 Ol indicam uma matriz 
| por 3. Depois disso, vêm os próprios 
valores, na forma de ponto flutuante. 
Observe que foi reservado um espaço 
para o elemento (0,1), embora ele não 
tenha sido definido. 

Faça uma experiência com as variá- 
veis string indexadas. 


1 DIM AS(2) 
2 AS(0)="NOVA” 
3 AS(2)=" CULTURAL” 


Executando o programa, obterá: 
65 128 0221034038 2400 


00008033 410 


O número 65 corresponde à letra A 
e o 128 indica uma variável string. Há 
dois bytes para o comprimento, um pa- 
ra a dimensão e um par destinado à 
quantidade de elementos. Em segiiência, 
encontram-se três grupos de cinco bytes 
por cadeia, Cada grupo começa por um 





RR E A A 


número que diz quantos caracteres a va- 
riável possui — 4, no caso de NOVA, 
Seguem-se um zero para guardar uma 
casa, dois bytes para o endereço da va- 
riável e mais um zero. O mesmo se re- 
pete para todas as variáveis, inclusive as 
que não foram definidas. Os valores 38 
e 33 poderão ser diferentes se se colo- 
car O programa em uma parte diferente 
da memória. 


— aged 

Tanto o Apple como o TK-2000 co- 
meçam a armazenar os programas em 
BASIC a partir do endereço 2048, De- 
pois de digitar o programa inicial, exe- 
cute O seguinte comando para ver como 
ele foi colocado na memória: 





FOR 1=2048 TO 2083:PRINT PEEK(I 
DJ” "5 NEXT 


Você obterá estes numeros: 


Õ 14 B 10 O 
1B6 34 /3 !B BO 
85 84 34 É 23 
8 20 0) 170 65 
208 50 Õ 30 B 
30 O 186 65 O 
36 B 40 o) 179 
Q 


Vejamos se algo faz sentido, se usar- 
mos os códigos ASCII: 


o RS O RSS A e 
RS RA De RR 
vg) a sy 
DR RS AS 
ai a a 


Talvez você esperasse que a palavra 
PRINT aparecesse antes da palavra IN- 
PUT. Porém, a fim de economizar me- 
mória, o computador substitui as pala- 
vras e os caracteres reservados por có- 
digos, denominados tokens (do inglês: 
simbolo, indicação). Consulte a lista de 
tokens no manual de seu micro e com- 
plete o diagrama. 


? ? ? ? ? 
PRINT ” I N p 

U T ” ? ? 

? ? ? LET A 

= 2 ? > ? 

? ? PRINT à ? 

7 > Fo ? STOP 
? 


Já podemos ver uma parte do progra- 
ma, mas ainda há muitos pontos de in- 
terrogação. Se você der uma olhada no 
quarto, 17º, 26º e 33º bytes, encontra- 


rá uma sequência de números — 10, 20, 
30, 40. Esses bytes guardam a parte bai- 
xa (L) do número de cada linha, e o byte 
seguinte guarda a parte alta (H). Os dois 
bytes anteriores contêm o endereço on- 
de se inicia a próxima linha. O valor ze- 
ro serve para separar as linhas de 
programa. 


inic 120H 120L 10 Ú 
PRINT * I N Pp 

UÚ T ” fdl 130H 
130L 20 Ô LET [o 

= 2 fdl 140H  140L 
30 O PRINT A ftdl 
fimH fimL 40 O STOP 
fim 


ARMAZENAGEM DAS VARIÁVEIS 





Já vimos como os programas são ar- 
mazenados. Porém, sempre que se de- 
fine uma variável, ela é guardada em 
uma parte especial da memória. O en- 
dereço da área de variáveis simples é da- 
do pelos bytes 105 (L) e 106 (H). 

Digite este programa e execute-o pa- 
ra ver como elas são armazenadas, 


1 LET A=3 

10 V=PEEK (105) +256*PEEK (106) 
20 FOR T=V TO V+6 

30 PRINT PEEK(I); 

40 NEXT 1 


Teremos, então: 
65 0 130 64 000 


O número 65 é o código ASCII para 
a letra A, que corresponde ao nome da 
variável. O byte seguinte tem a mesma 
finalidade. O terceiro código refere-se 
ao expoente, e os quatro restantes, fi- 
nalmente, guardam o valor da variável. 
A armazenagem dos números, um tan- 
to complicada, não interessa diretamen- 
te aos objetivos deste artigo, e, portan- 
to, não será aqui examinada, 

Para uma variável do tipo string, fa- 
ça a seguinte substituição: 
1 LET ABS="APPLE” 

Executando o programa, você obtera: 
65 194 5 11 8 00 

Os dois primeiros bytes dão o nome 
da variável, mas, agora, o valor 128 é 
adicionado à segunda letra, para indi- 
car uma variável string. O terceiro byte 
guarda seu comprimento. O par de bytes 
seguintes contém o endereço a partir do 
qual ela está armazenada. Para econo- 
mizar memória, em vez de escrever no- 
vamente a palavra APPLE em outro lu- 
gar da memória, o computador guarda 
apenas a posição que ela ocupa no pro- 
grama em BASIC: as variáveis string, 


definidas por um comando INPUT, por 
exemplo, são guardadas em uma outra 
posição. 





VARIAVEIS INDEXADAS 


As variáveis indexadas são armaze- 
nadas em um outro endereço, dado pe- 
los bytes 107 e 108. O computador tam- 
bém guarda aí algumas variáveis espe- 
ciais, como as usadas nos laços 
FOR...NEXT. Por isso, pulamos sete 
bytes para chegar à variável A. 

Execute o programa: 


1 DIM A(2) 

Z A(O)=5:A(I)=10:A(2)=15 

10 V=PEEK (107) +256*PEEK (108) 
20 FOR 1=V+7 TO V+28 

30 PRINT PEEK(T);" *; 

40 NEXT 1 


Você deve ter obtido a sequência 
65 022010313132000 
132 32 0 0 0 132 112000 


Os dois primeiros bytes dão o nome 
da variável. O próximo par diz, na for- 
ma LH, quantos bytes foram necessa- 
rios para o armazenamento (conte-os). 
O quinto deles guarda o número de di- 
mensões. À partir deste, na ordem de- 
crescente, seriam escritos os tamanhos 
de cada dimensão; como nós so temos 
uma, bastam os valores O e 3 (note que 
agora a parte alta veio em primeiro lu- 
gar). Finalmente, aparecem os valores, 
cada um ocupando cinco bytes, como já 
comentamos. 

Para examinar a armazenagem das 
variáveis string indexadas, substitua 28 
por 22 na linha 20 e mude as linhas: 


1 DIM BS(Z) 
2 BS(1)="NOVA” 
3 B5$(2)="CULTURAL” 


Você deve ter tido esta resposta: 
66 128 16 UU 1 0306 
O 4 23 BB B 40 8 


Os dois primeiros bytes guardam o no- 
me, como para as variáveis string co- 
muns. O par seguinte mostra O espaço 
ocupado por essa variável (novamente, 
conte os bytes). O quinto byte guarda 
o número de dimensões e os valores O 
e 3 indicam, na forma HL, o compri- 
mento da n-ésima dimensão (no nosso 
caso, a única). A partir daí, cada string 
ocupa três bytes, sendo que O primeiro 
contém seu comprimento e os dois ou- 
tros, sua posição no programa em BA- 
SIC. Os três zeros referem-se à variável 
B$(0), que nós não definimos. 











UMA PLANILHA 


ELETRÔNICA (1) 


Um problema que aflige a maioria 
das pessoas é o controle de suas despe- 
sas. No artigo da página 134, apresen- 
tamos um programa bem prático para 
a organização do orçamento, Veremos, 
agora, um método desenvolvido a par- 
tir da planilha de cálculo utilizada pe- 
los profissionais em contabilidade. 

O programa para a planilha eletrôni- 
ca é extremamente versátil, tendo um 
potencial quase ilimitado para a mani- 
pulação de informações numéricas. E 
suas aplicações não se restringem à área 
financeira. Para começar, examinare- 
mos todas as suas possibilidades. Assim, 
depois de digitar o programa — que se- 
rá dado em três partes —, você estará 
apto a usá-lo eficientemente. Instruções 
detalhadas serão fornecidas junto com 
as listagens. 





O QUE É UMA PLANILHA DE CÁLCULO? 


As planilhas de cálculo eletrônicas 
valem-se de uma das maiores vantagens 
do computador — sua capacidade de fa- 
zer cálculos muito rapidamente. Em es- 
sência, mesmo o maior e mais comple- 
xo dos computadores é uma máquina de 
somar. Os computadores, na verdade, 
só sabem lidar com números — e quem 
já se aventurou a trabalhar com código 
de máquina pode confirmar isto. 

Bem utilizada, uma planilha eletró- 
nica torna-se uma ferramenta bastante 
poderosa. Sua aplicação mais frequen- 
te é na área financeira, mas é possivel 
estendê-la a qualquer finalidade. Ela 
substitui o papel, o lápis e a calculado- 
ra, antes usados pelos contadores para 
prever os lucros de uma empresa ou por 
cientistas investigando o crescimento po- 
pulacional. No plano doméstico, pode 
ser muito util no controle das despesas 
ou na organização dos dados relaciona- 
em a um hobby. 

A planilha tradicional dos contado- 
res, empregada para anotar os lucros e 
despesas, é uma folha de papel dividida 
horizontalmente em linhas e vertical- 
mente em colunas. No cabeçalho, em 
geral, anotam-se os meses do ano, de 
maneira que cada coluna corresponde a 
um mês. Ao lado, colocam-se rótulos 
como receitas e despesas. Para análises 








mais detalhadas incluem-se subtítulos, 
como vendas, exportações, custos ope- 
racionais, custos de matéria-prima etc. 
Cada linha corresponde a um item es- 
pecifico de receita ou despesa. 

O título final da página é, usualmen- 
te, Lucros/Perdas e os números das co- 
lunas mostram quanto se ganhou ou se 
perdeu a cada mês. Na 13º coluna, 
registra-se o total da receita ou despe- 
sa, no ano, por área especifica. 

O preenchimento das células com os 
números é sempre uma tarefa trabalho- 
sa, quer se recorra ou não ao auxilio de 
um computador. Mas os contadores que 
usam planilhas tradicionais vêem-se 
obrigados, além disso, a fazer as con- 
tas dos totais, O que significa somar Lto- 
dos os valores de receita, todos os valo- 
res de despesa e, finalmente, calcular a 
diferença. 


O COMPUTADOR ENTRA EM JOGO 





Em muitos aspectos, a planilha de 
cálculo eletrônica é igual à que foi des- 
crita até o momento, dividindo-se tam- 
bém em células formadas por linhas e 
colunas. Para se obter células de tama- 
nho aceitável, apenas uma pequena par- 
te da planilha é exibida na tela, que é 
usada como uma “janela” para mostrar 
uma área particular. 

Como na planilha de papel, pode-se 
colocar qualquer tipo de dado nas célu- 
las vazias. Elas só adquirem um signifi- 
cado particular depois de definidas, po- 
dendo cunter títulos, rótulos, valores 
etc., segundo a necessidade. 

Até aqui, a planilha eletrônica é tão 
ou mais trabalhosa que a manual, Sua 
grande vantagem reside, de fato, na ma- 
nipulação dos dados. Atrás de suas cé- 
lulas em branco encontra-se uma outra 
planilha, que diz ao computador o que 
deve fazer com as informações de cada 
célula. Essa segunda planilha pode ser 
checada e corrigida sempre que for ne- 
cessário. 

Para entender melhor como o siste- 
ma funciona, voltemos um pouco ao 
nosso contador tradicional, Suponha- 
mos que ele queira mostrar na primeira 
coluna o custo de um item; na segunda, 
a porcentagem de imposto a ser paga so- 


Se você vive às voltas com uma grande 
quantidade de informações numéricas, 
peça socorro ao seu micro — ele, 

sem dúvida, se entende melhor 

com números e contas do que você. 


bre aquele valor e, na terceira, a soma 
dos valores exibidos nas duas colunas 
anteriores. O computador pode ser pro- 
gramado a fim de executar essa tarefa 
em instantes. Colocando a instrução 
adequada em cada célula da coluna dois, 
ele multiplicará o número da coluna um 
por uma taxa fixa. Uma instrução seme- 
lhante em cada uma das células da co- 
luna três fará com que ele calcule a so- 
ma das colunas um e dois. 


PROJEÇÕES 





Outro problema do contador que tra- 
balha com uma planilha manual é lidar 
com as alterações dos dados, em geral 
frequentes. Um aumento nos custos de 
mão-de-obra, por exemplo, pode 
obrigá-lo a recalcular o total de despe- 
sas e a revisar todos os valores de Lu- 
cros/Perdas. Se ele estiver simplesmen- 
te registrando valores, o problema não 
será tão grave. Mas, se seu trabalho in- 
cluir a projeção dados dos para um ano 
ou mais, ele precisará refazer centenas 
de cálculos. 

Executada manualmente, a tarefa se- 
rá demorada, cansativa e muito vulne- 
rável a erros. Um computador poderá 
completá-la em alguns décimos de se- 
gundo: depois de termos colocado de- 
terminados valores na planilha, a mu- 
dança de qualquer um provocará o rea- 
juste automático de todos os outros a ele 
relacionados. Se, por exemplo, o valor 
correspondente ao custo da matéria- 
prima muda, o custo total do produto 
é reajustado de acordo, bem como o lu- 
cro final. 

Algumas planilhas são capazes de fa- 
zer cálculos bem mais complexos, 
prestando-se, inclusive, à solução de 
questões do tipo “E se...?'”, que apare- 
cem constantemente no mundo dos ne- 
gócios — e em muitas outras áreas. Em- 
bora empregadas principalmente para 
fins comerciais, elas têm utilidade em 
qualquer campo, sempre que se lida com 
muitas variáveis interdependentes. 

Graças à sua extraordinária versati- 
lidade, as planilhas eletrônicas são um 
dos tipos mais procurados de programa 
aplicativo. Muitas delas são compatíveis 
com outros programas, possibilitando 
composições adequadas a aplicações de 














grande complexidade. Um editor de tex- 
tos, um sistema de gerenciamento de 
banco de dados e uma planilha eletrô- 
nica, por exemplo, constituem um po- 
deroso conjunto de programas. 
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E O QUE É UMA PLANILHA 


DE CALCULO? 


E) ORGANIZE A INFORMAÇÃO 


E | POR QUE USAR UMA PLANILHA 


EE | CÁLCULOS COM O COMPUTADOR 






UMA PLANILHA TÍPICA 


lula. O conteúdo de cada célula pode ser 
tanto uma variável alfanumérica — co- 
mo uma palavra — quanto um número 











A unidade básica da planilha é a ce- 


RÓTULOS PARA 
AS LINHAS E COLUNAS 
COMO PREENCHER 
RE AS CELULAS 
s O COMEÇO DO PROGRAMA 





ou uma fórmula. Quando a planilha é 


carregada na memória do computador, 


as células têm um tamanho predetermi- 
nado. Em algumas delas, esse default 
(como é chamado em inglês) pode ser 
mudado a qualquer momento. 

O valor mostrado em cada célula po- 
de ser um número ali colocado pelo 
usuário ou o resultado de um cálculo. 











qo 


O número de linhas e colunas varia de 
uma planilha para outra; as melhores 
possuem 65 colunas e 256 linhas, ou se- 
1a, 16640 células individuais — quanti- 
dade excessiva para um pequeno micro 
manipular! A planilha de INPUT tem 
24 colunas e de 20 a 30 linhas, depen- 
dendo do computador. 

As células são sempre identificadas 
por letras e números ao longo dos eixos 
Xe Y. A maioria das planilhas usa co- 
lunas identificadas por letras: A, B, €, 
«Ze, depois, AA, AB,... As linhas, 
nesse caso, são numeradas de 1 em dian- 
te. Este é o método usado no nosso 
programa, 

Existem vários comandos disponíveis 
para a entrada de equações, valores, ti- 
tulos, assim como para a cópia de célu- 
las ou o exame de diferentes partes da 
planilha. Outros comandos fazem os 
cálculos e permitem que os dados sejam 
gravados ou carregados para a memo- 
ria do computador. Podem-se montar 
equações com as operações elementares, 
com porcentagens ou com os totais de 
linhas ou colunas. No micro Spectrum, 
o movimento de um cursor pela plani- 
lha faz com que a célula a ser trabalha- 
da apareça em destaque. Os demais mi- 
crocomputadores usam um sistema di- 
ferente: cada célula é especificada e tem 
seu conteúdo exibido no rodapé da tela 
antes de ser transferido para a posição 
definitiva na planilha. 





PLANEJAMENTO E DESENHO 


A primeira fase de preparação de 
uma planilha é a mais dificil, requer de- 
talhado planejamento e não envolve o 
uso do computador. Antes de mais na- 
da, é necessário estabelecer exatamente 
o que se quer, pois isso afeta o desenho 
da planilha. Em seguida, deve-se dedi- 
car o máximo de atenção ao planeja- 
mento, para se obter uma planilha que 
mostre as informações de maneira cla- 
ra e concisa. Como muitas coisas em 
computação, esse instrumento será tão 
bom quanto for seu planejamento. Se 
você não tiver cuidado nessa fase, pro- 
vavelmente obterá uma planilha confu- 
sa, difícil de ler e até com erros nas fór- 
mulas dos cálculos. 

Um exemplo prático: suponhamos 
que você queira desenhar uma planilha 
para controlar as finanças domésticas 
durante o ano. E evidente que os doze 
meses deverão encabeçar as colunas, 
Mas decidir o título de cada linha será 
um pouco mais dificil. 

Primeiro: qual o nível de detalhe pre- 
tendido?' Aluguel, transporte, assistên- 
cia médica, alimentação são titulos ób- 


vios quando se fala de orçamento do- 
méstico. Mas você quer discriminar os 
gastos com combustivel, criando uma 
categoria independente? Ou prefere reu- 
nir todos os gastos relacionados a trans- 
porte — além de combustível, manuten- 
ção do carro, taxas etc. — em uma ca- 
tegoria única? Tudo depende de seus in- 
teresses e necessidades. 

Uma planilha pode ser' particular- 
mente útil para manter o valor de seus 
bens atualizado, fornecendo, ainda, in- 
formações como as porcentagens de va- 
lorização de sua casa ou da depreciação 
do seu carro. 

Calcular a valorização anual de sua 
casa parece muito simples, inicialmen- 
te. Um ano depois de comprá-la, seu va- 
lor será o preço de compra multiplica- 
da pela porcentagem de valorização — 
P*X%, onde X corresponde à porcen- 
tagem mais 100. Por exemplo, X seria 
100 + 5% para uma valorização anual de 
5%. A fórmula para calcular o valor ao 
fim do segundo ano seria P*X%*X Vo. 
Ano a ano, a fórmula fica maior e mais 
dificil de ser calculada, 

Com uma planilha, o trabalho fica 
bem mais fácil, e não é preciso ser um 
matemático, conhecedor de dúzias de 
fórmulas e equações, para usar todo seu 
potencial. Num caso como o da valori- 
zação da casa, pode-se usar o endereço 
de uma célula para se referir ao conteu- 
do dela. Assim, a fórmula nunca fica 
mais complicada que P*X%, onde P é 
o conteúdo da célula anterior. A fórmu- 
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la a ser escrita na planilha teria esta con- 
figuração: B10% 105%. 

Se a fórmula foi posta na célula C10, 
o resultado é mostrado nesse local. 
Colocando-se a fórmula C10*105% em 
D10, por exemplo, o computador toma 
o valor colocado em C10 e o multiplica 
por 105%. 

A apresentação da fórmula varia de 
uma planilha para outra e os programas 
deste artigo usam um método bem di- 
ferente dos habituais. Os detalhes serão 
explicados nas instruções sobre uso do 
programa, dadas mais tarde. 

A utilização do endereço da célula em 
vez de seu conteúdo simplifica o traba- 
lho com a planilha, permitindo que 
qualquer um, com um pouco de bom 
senso e paciência, realize tarefas bastan- 
te complicadas. No entanto, precisamos 
ter cuidado ao fazer referência a uma cé- 
lula em outra. Não devemos, por exem- 
plo, usar a célula B10 em uma fórmula 
C10, seo resultado de B10 depende do 
valor assumido por C10, O micro não 
pode calcular o valor de uma sem ter re- 
solvido a outra! Se a planilha não de- 
tectar esse problema, o programa apre- 
sentará erro quando o computador ten- 
tar resolver o paradoxo. 





E se as taxas de juros subirem 15% 
no mês de junho? E se comprarmos um 
carro maior? E se instalarmos um aque- 
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cedor central? Utilizando sua planilha, 
você poderá obter resposta para todas 
essas perguntas. 

Observe que a última delas aponta 
para outra área, que não a financeira, 
na qual as planilhas são úteis. A dife- 
rença entre sistemas de aquecimento 
central com tipos de combustível diver- 
sos pode ser visualizada num relance. 
Estimar a perda de calor que se evita 
com o uso de dupla isolação permite 
tambem prever quanto vamos economi- 
zar e quanto tempo levaremos para re- 
cuperar o investimento. 





OUTROS USOS | 


Embora, geralmente, mesmo as pla- 
nilhas mais simples sejam usadas para 
aplicações sérias e complicadas, elas se 
prestam muito bem para o lazer. Vários 
modelos diferentes dos financeiros po- 


dem ser construídos. Só para diverti- 
mento, crie uma referência circular com 
as células que não têm fim. 

Existem enormes variações de uma 
planilha para outra. Como regra geral, 
quanto mais poderosa, mais cara é a pla- 
nilha e maior o micro necessário para 
sua utilização. Uma planilha simples 
tem uma meia dúzia de comandos e mais 
Ou menos o mesmo número de funções. 
Compare isso aos vinte comandos e qua- 
renta funções das grandes planilhas. As 
mais sofisticadas permitem, inclusive, a 
introdução de declarações com funções 
similares a comandos em BASIC — por 


exemplo, IF...THEN, AND, OR e 








NOT. Em outras palavras, é possível 
programar as planilhas. 


DIGITE O PROGRAMA 





O programa da planilha eletrônica é 
bastante longo e, por isso, está dividi- 
do em três partes. Digite as linhas que 
se seguem e grave-as para depois adicio- 
nar as restantes. 

O programa não funciona neste ni- 
vel, As instruções de como usá-lo serão 
dadas nas próximas duas partes. 


5 BORDER O: PAPER O: INK 7: 
CLS 
10 DIM b$S(11): DIM a5(8): DIM 
d$(30,24,18): DIM v(4): DIM 
z5(5,4) 
20 GOSUB 1730: POKE 23658B,6: 
LET tS="VAL": LET oB=0: LET 
Bflaç=0: LET wx=1l: LET wy=1: 
LET cx=1l: LET cy=] 
30 CLS PRINT * 
"+: FOR x=4 TO 
32 STEP 9: FOR y=2 TO 21 STEP 
2: PRINT AT y,x;"": NEXT y: 
NEXT x: FOR y=1 TO 21 STEP 2: 
PRINT AT y,0;"": NEXT y 
40 FOR x=0 TO 2: PRINT AT 0,9 
*x+0;CHAS (wx+tx+64): NEXT x 
50 FOR x=0 TO 9: PRINT AT (x+ 
1)*2,12;(” ”" AND vy+x<10) uytx 
* NEXT x 
60 PRINT AT 0,0;t58;" ”: FOR y 
=0 TO 9: FOR x=0 TO 2: GOSUB 
1230: NEXT x: NEXT yv: PRINT 
G1L:AT 0,0;” 
70 PRINT AT cy*2, ((cx-1)*9)+5 
: BRIGHT 1; FLASH 8; PAPER 8; 
INK B; OVER 1;" * 
BO IF INKEYS5="'"" AND wy2] 
THEN LET wy=wy-10: GOTO 40 
90 IF INKEY5S="6" AND wysS20 
THEN LET wy=wy+l0: GOTO 40 
100 TF INKEYS="(" AND wx€<21] 
THEN LET wux=wx+3: GOTO 40 
110 TE INKEYS="%" AND wx>1] 
THEN LET wx=wx-3J: GOTO 40 
120 PRINT AT cy*2Z, ((cx-1)*9)+5 
FLASH 8; BRIGHT O; INK 8; 
PAPER B; OVER 1;" * 
130 LET cy=cy+(INKEY5S="6" AND 
cy<10)-(TNKEYS="7" AND cy>l): 
LET cx=cx+ (INKEYS="8" AND cx<3 
)- (INKEYS="5" AND cx>1) 
140 IF INKEYS="1" OR INKEY5S="1 
" THEN GOSUB 1250 
LAO IF INKEY$="v” OR TNKEY9="V 
" THEN LET tS="VAL”: GOTO 60 
160 TF INKEY$="e” OR INKEYS="E 
” THEN LET tS="IGUAL": GOTO 6 


) 

170 IF INKEYS$="?" THEN PRINT 
AT 0,0; FLASH 1;"CALC”: GOSUB 
810: GOTO 60 

180 IF INKEYS$="z" OR INKEY$S="Z 
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" THEN PRINT AT 0,0; FLASH 1; 
"COPIA": GOSUB 230: GOTO 60 


190 IF INKEY8="P” OR INKEYS="p 
"* THEN COPY 

200 IF INKEY8="NOT ” THEN 
GOSUB 1780: GOTO 30 

210 IF INKEY8="-" THEN  GOSUB 
1840: GOTO 30 

220 GOTO 70 

230 PRINT 41;AT 0,0;"CELULA À 
COPIAR 7": LET d=1l: LET c=3: 
LET x=15: GOSUB 580: GOSUB 670 

IF f THEN SOUND .2,30: GOTO 

230 

240 PRINT &I;AT 0,0;"ABS ou RE 
L (A ou R)?2”: LET x=22: LET d= 
2: LET c=1: GOSUB 580: GOSUB 
670: IF f THEN SOUND .2,30: 
GOTO 240 

250 PRINT 41;AT 0,0;"COL ou LI 
NHA (C ou L)?”": LET x=22: LET 
d=3: LET c=1: GOSUB 580: GOSUB 
670: IF f THEN SOUND .2,30: 
GOTO 250 

260 PRINT 41;AT 0,0;"DA CELULA 
No. ?": LET x=16: LET d=4: LET 
c=3: GOSUB 580: GOSUB 670: IF 

£ THEN SOUND .2,30: GOTO 260 
270 PRINT 41L;AT 0,0;"PARA A CE 

LULA No. ?": LET x=l4: LET d=5 


Nº ado a + [RO 
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* LET c=3: GOSUB 580: GOSUB 
670: IF £ THEN SOUND .2,30: 
GOTO 270 


280 GOSUB 770: IF NOT £ THEN 

GOTO 320 

290 PRINT 41;AT 0,0;"COMANDO E 

RRADO - PRESSIONE A PARA AB 

ORTAR OU QUALQUER OUTRA TECLA 
PARA RE-ENTRAR” 

300 PAUSE 10: PAUSE O: PRINT + 
L:AT 0,0;” 


". IF INKEY9S="a” 

OR INKEY5="A” THEN  RETUABN 

310 GoTO 230 

320 LET a= (CODE 28(1,2))-64: 
LET b=VAL z5(1,3 TO (VAL z5(1, 
1)+1)): LET s$=(d$(b,a,9 TO 16 
) AND tS="IGUAL")+(dS(b,a, TO 
B) AND tS="VAL”"): LET cS=ds(b, 
a,17): LET z=CODE d5(b,a,18B) 
330 IF 2z38(2,2)="B” THEN GOTO 

390 

340 FOR a=fc TO tc: FOR b=fr 
TO fr 
350 IF tS=" IGUAL" THEN LET ds 
(b,a,9 TO 16)=558: LET dS5(b,a, 
17)=cg 
360 TF tS="VAL" THEN LET dStb 
.ã, TO B)=55 


370 NEXT b: NEXT a 

3180 RETURN 

390 LET sS=d$S(b,a,9 TO 16): 
GOSUB 890: LET a=(CODE z5(4,2) 
-64)- (CODE 2z5(1,2)-64): LET b= 
VAL z3(4,3 TO (VAL z5(4,1)+1)) 
“VAL zS(1,3 TO (VAL zS(1,1)+1) 
) 

400 LET v(2)=v(2)+b-l: LET vid 
)J=v(d4)I=((b-1) AND v(3)<>26) 
410 LET v(g)=v(3)+((a-1) AND v 
(3)<>26): LET v(l)=v(l)+a-] 
412 IF 25(3,2)="C” THEN LET v 
(N=vtlj+: LET v(3)=vid)+ivls 
14226) 

414 IF 2z58(3,2)="R” THEN LET v 
(2)=v(2)+1: LET vi4g)=v(4)+ivid 
)J<>26) 


10 PMODE 0,1:PCLEAR 1:CLEAR 100 
00:CLS: PRINT 6230," PLANILHA ELE 


TRONICA” 


20 CS=]:RS=1:CR=1:CC=1]:MOS(0)=" 


VALOR (CALC)":MOS(1)=" EQUACAO 


a . La 
; ] k 
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":MO=1]:0P$S="+-*/254" 
30 DIM D$(26,30),D(26,30) 
40 FOR I=1 TO 26:FOR J=1 TO 30: 
DS (I,J)=CHR$(128) :NEXT J,I 
50 CX=4:RX=1 
60 GOSUB 70:GOTO 170 
70 PRINT €448," ESPERE": PRINT €0 
| STRINGS (3,128);:FOR I=CS TO CS 
+3: PRINT CHR$S(123);CHR$S(128);CH 
RS (128) ;CHAS(96+I) ; CHRS(128);CH 
R$ (128) ;CHRS (125); :NEXT:PRINT C€ 
HR$ (128); 
BO PRINT €480,"MODO: ”;MOS (MO) ; 
90 FOR I=0 TO 11:CI=INT((RS+1)/ 
10)+48:C2=(RS+1)-((C1l-48)*10)+4 
8: POKE 1024+32*1+32,C1l:POKE 102 
4+32*1+33,C2: PRINT €632*1+34,""”: 
NEXT 
100 PRINT €416:IF MO=0 THEN GOS 
UB 740:GOTO 130 
110 FOR J=RS TO RS+11:FOR I=CS 
TO CS+3 
120 PRINT €(J-RS)*32+35+(I-CS)* 
7,""; :GOSUB 660:NEXT I,J 
130 PRINT €480,"MODO: ";MOS (MO) 
“TAB (20) ;"CELULA: ";CHRS (64+CC) 
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'MIDS (STAS(CR),2);" *; 

140 PRINT 6448," PRONTO” 

150 PRINT €458,MIDS (DS(CC,CR),2 
) 

160 RETURN 

170 PS=(CR-RS+1)*32+(CC-CS)*/+3 
+1024:Z=PEEK (PS) :POKE PS,191 AN 
D Z 

180 IS=INKEYS:IF 1$="" THEN 180 
190 POKE P5S,Z 

200 IF I5S=CHRS(B) AND CC>1 THEN 
CC=CC-1:IF CC<CS THEN CS=CS-1: 
GOSUB 70 

210 IF IS=CHRS(9) AND CC<26 THE 
N CC=CC+1:IF CC>CS+3 THEN CS=CS 
+1:GOSUB 70 

220 IF IS=CHR$(10) AND CR<30 TH 
EN CR=CR+1:IF CR>RS+11 THEN R$S= 
RS+1:GOSUB 70 

230 IF IS$=CHR$(94) AND CR>1 THE 
N CR=CR-1:IF CR<RS THEN RS=AS-L 
: GOSUB 70 

240 IF 1$="G”" THEN GOSUB 330 
250 IF 18="Q”" THEN CLS: INPUT"CO 
NFIRMA QUERER SAIR (S/N) ?";AS: 
IF AS<>"S” THEN GOSUB 70 ELSE cC 






























LS: END 

260 IF 1I8="I" GOSUB 410 
270 IF 18="V”" THEN MO=0:GOSUB 7 
0 

280 IF 15="C* GOÓSUB 1490 

290 IF 18="E” THEN MO=1:GOSUB 7 
O 

300 IF 1$="S”" GOSUB 1230 

310 IF I$="L” GOSUB 1350 

320 GOSUB 130:G0OTO 170 

330 PRINT €448:PARINT 8448," PARA 
A CELULA ->";:LINE INPUT AS 
340 IF AS$="" THEN RETURN 

350 CI=ASC(AS)-64:IF ClI<1L OR Cl 
>26 THEN 330 

360 C2=VAL (MIDS (AS,2)):IF CZ2<l 
OR C2>30 THEN 330 

370 CC=Cl:CS=Cl:CR=C2:RS=C2 

380 IF CS>23 THEN CS=23 

390 IF RS>19 THEN RS=19 

400 GOSUB 70:RETURN 

410 PRINT 6448,"NOVO CONTEUDO 
": : LINE INPUT AS 

420 IF AS="" THEN AS=CHBRS (128): 

GOTO 610 

430 IF LEN(AS)>9 THEN PRINT €44 
8," ENTRADA INVALIDA” :SOUND 1,4: 

GOTO 410 

440 IF VAL(AS)<>0 THEN 560 

450 BS=LEFTS(AS,1):IF BS<"A” OR 
B$>"Z" THEN 600 

460 CS=MIDS(AS,2,2) 

470 IF VAL(CS$)<l OR VAL(CS)>230 

THEN 600 

480 IF VAL(CS$)<1lO0 THEN AS=B5S+5T 

RS (VAL (CS) J+MIDS (AS, 3) 

490 DS=MIDS(AS,4,1):IF DS<"A” O 
AR D$>"Z" THEN 600 

500 ES=MIDS(AS,5) 

510 IF VAL(ES)<1l OR VAL(ES)>30 
THEN 600 

520 IF VAL (ES)J<1lO THEN AS=LEFTS 
(AS,4) +STRS (VAL (ES) ) +MIDS (AS,6) 

530 OS=MIDS(AS,7,1):IF INSTA(ÍL, 

0P5,08)=0 OR 0$="" THEN 600 

540 DP=VAL (RIGHTS (AS,1)):IF DPS 
O OR DP>7 THEN 600 

550 PRINT 6448," ENTRADA E UMA e 

quacao” : AS=CHRS (131)+AS:GOTO 61 

Ô 

560 PRINT 6448," ENTRADA E UM va 
Lor” 

570 IF RIGHTS(AS,1)=" * THEN AS 

=LEFTS (AS, LEN(AS)-1) :GOTO 570 


qual tara 
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580 IF LEN(AS)<7 THEN AS=" “+AS 
:'GOTO 580 

590 AS=CHRS (129) +AS:GOTO 610 
600 PRINT 6448," ENTRADA E UMA 1 
egenda” :AS=CHRS (130) +AS 

610 DS(CC,CR)=AS: I=CC:J=CR:PRIN 
T 6(J-RS)*32+35+(I-CS5)*7,77;:GO 
SUB 660:SOUND 190,2:FOR D=1 TO 
500:NEXT 

620 IF CC>CX THEN CX=CC 

630 IF CR>RX THEN RX=CR 

640 IF MO=0 THEN MO=1:GOSUB 7/0 
650 RETURN 


ra o 
tal | 


10 KEYOFF:CLEAR10000:COLOR15,4, 
4: SCREENO:CLS:LOCATE 9,11:PRINT 
"PLANILHA ELETRÔNICA” 

20 CS=1:R8=1:CA=1:CC=1:MO0S(0)=" 

VALOR (CALC)”":MOS (1) =" EQUAÇÃO 
"-MO=1]:0PS="+-*/254" 

30 DIM D$S(26,30),D(26,30) 

40 FOR I=1 TO 26:FOR J=1 TO 30: 
DS (I,J)=CHR$S(128):NEXTJ,I 

50 CX=4:RK=1 

60 GOSUB 70:GOTO 170 

70 CLS:LOCATE 0,20: PRINT"AGUARD 
E..." :LOCATEO,0: PRINTSTRINGS (3, 
219); :FOR 1=CS TO CS+4:PRINTCHR 
S(91);SPC(2);CHRS(64+1);5SPC(2); 

CHARS (93); :NEXT: PRINTCHRS (219); 
BO LOCATE 0,21:PRINT"MODO: ";MO 

S (MO) 

90 FOR 1=0 TO 15:C1l=INT((RS+I)/ 
10)+48:C2=(RS+I)-((C1-48)*10)+4 

B:LOCATE 0,1I+1:PRINTCHRS(C1);CH 

ARS (C2) :NEXT 

100 LOCATE 19,0:IF MO=0 THEN GO 

SUB 740:GOTO 130 

110 FOR J=RS TO AS+15:FOR I=€8 

TO CS+4 

120 LOCATE (1-C8)*7+3,J-RS+1:GO 

SUB 660:NEXT I,J 

130 LOCATE 0,21:PRINT"MODO: ";M 

OS (MO); TAB(20) "CEL: ";CHAS (64+C 

C) ;MIDS (STRS(CR),2)/" €; 

140 LOCATE 0,20: PRINT" PRONTO! 
"TAB (15)MIDS(DS(CC,CR),2);SPC 
(9) 

160 RETURN 

170 PS=(CR-RS+1)*40+(CC-CS)*47+4 
«-Z=VPEEK (PS) :VPOKE PS,219 

180 IS=INKEYS:IF 13="" THEN 180 
190 VPOKE PS,Z 

200 IF IS$=CHR$S(29) AND CC>l THE 

N CC=CC-1:IF CC<CcS THEN C8=CS-1 
“'GOSUB 70 

210 IF IS=CHRS(28) AND CC<26 TH 

EN CC=CC+1:IF CC>CS+4 THEN CS=C 

S+1:GOSUB 70 

220 IF IS=CHAS(31) AND CR<30 TH 
EN CR=CR+1:IF CR>RS+15 THEN BS= 

RS+1:GOSUB 70 

230 IF IS=CHRS(30) AND CR>1 THE 

N CR=CA-1:IF CAR<RS THEN RS=RS-1 
:GOSUB 70 

240 IF 15="G” THEN GOSUB 330 
250 IF 158="Q” THEN CLS: INPUT"TE 

RMINO O PROGRAMA? (S/N) ";AS:IF 
AS<>"S8” THEN GOSUB 70 ELSECLS: 
END 
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260 IF 
270 IF 
Ô 

280 IF 
290 JE 
! 

300 IF 1$8="S* 
310 IF 15="L” THEN GOSUB 1350 
320 GOSUB 130:GOoTO 170 

330 LOCATE 0,20:PRINTSPC(38):LO 
CATE 0,20:PRINT"PARA CEL >", :IN 
PUT AS 

340 IF A$="" THEN RETURN 

350 CI=ASC(AS)-64:IF CI<l OR Cl 
226 THEN 330 

360 C2=VAL (MIDS(AS,2)):IF CZ2<l 
OR C2>26 THEN 330 

370 CC=Cl]:CS=Cl:CR=C2:RS=C2 


GOSUB 410 
MO=0:GOSUB 7/7 


1$="1" 
18="V” 


THEN 
THEN 


GOSUB 1490 
MO=1:GOSUB 7 


I9="C” 
19="E" 


THEN 
THEN 


THEN GOSUB 1230 
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380 IF CS>23 THEN CS=23 

390 IF RS>19 THEN RS5=19 
400 GOSUB 70:RETURN 
410 LOCATE 0,20:PRINTYNOVO CONT 
EUDO: ";SPC(22);:LOCATE 15:LINE 
INPUT AS 
420 IF AS="" THEN AS=CHRS(128): 
GOTO 610 
430 IF LEN(AS)>9 THEN LOCATE 0, 
20: PRINT" ENTRADA INVALIDA 

"FOR I=1 TO 500:NEXT:GOTO 410 
440 IF VAL(AS)<>0 THEN 560 
450 BS=LEFTS(AS,1):IF BS<"A” OR 
B5$>"Z" THEN 600 
460 CS=MIDS(AS,2,2) 
470 IF VAL(CS)<l OR VAL(CS)>30 
THEN 600 
480 IF VAL(C$)<10 THEN AS=BS+ST 
RS (VAL (CS) ) +MIDS (AS, 3) 
490 D$=MIDS(AS,4,1):IF DS<"A” O 
R D$>"Z" THEN 600 
500 ES=MIDS(AS,5) 
510 IF VAL(ES)<1l OR VAL(ES)>30 
THEN 600 
520 IF VAL(ES)<1O THEN AS=LEFTS 
(AS,4)+STRS (VAL (ES) ) +MIDS (AS,6) 


530 0S=MIDS(AS,7,1):IF INSTR(1, 


0P$,03)=0 OR 08="" THEN 600 

540 DP=VAL (RIGHTS (AS,1)):IF DP< 
O OR DP>7 THEN 600 

550 LOCATE 0,20:PRINT"A entrada 
é uma EQUAÇÃO" :AS=CHRS (131) +AS 
“GOTO 610 

560 LOCATE 0,20:PRINT"A entrada 

é um VALOR” 








570 IF RIGHTS(AS,1)=" " THEN AS 

=LEFTS (AS, LEN(AS)-1) :GOTO 570 

580 IF LEN(AS)<7? THEN AS=" "+AS 
:GoTOo 580 

590 AS=CHR$ (129) +AS:GOTO 610 

600 LOCATE 0,20:PRINT"A entrada 
é um RÓTULO” :AS=CHRS (130) +AS 

610 D5S(CC,CR)=AS:I=CC:J=CR:LOCA 

TE (I-CS8)*7+3, (J-RS)+1:GOSUB 66 
0 

620 IF CC>CX THEN CX=CC 

630 IF CR>RX THEN RX=CR 

640 IF MO=0 THEN MO=1:GOSUB 70 

650 RETURN 


ra 


10 TEXT HOME : CLEAR : VTAB 
12: HTAB 10: PRINT "PLANILHA EL 
ETRONICA” 

20 CS = 1:RS = J:CR = 1:CC = 1: 
CA = 1:RA = 1:MOS(0) = “VALOR(C 
ALC)"*:MOS (1) = "EQUACAO ":M 
O = 1:0PS = "+-*/45.":DS = CHR 


3 (13) + CHRS (4) 

25 ONERR GOTO 2500 

30 DIM DS(26,30),D(26,30) 

40 FORI =1]1TOZ6: FORJJs=iIL 
TO 30:D$S(I,J) = CHARS (128): NE 


XT : NEXT 

50 CX = 4:RX = 1: FOR 1 = 1 TO 
LO:LLS = LLS + CHRS (255): NEX 

T 

60 GOSUB 70: GOTO 170 

TO HOME : VTAB 21: PRINT "AGUA 

ARDE...”: VTAB 1: PRINT LEFTS ( 

LL8S,3):: FOR T = CS TO CS + 4; 

PRINT CHARS (91); SPC( 2); CHARS 
(64 + T); SPC( 2); CHRS (93);: 
NEXT : PRINT LEFTS (LLS,2) 

80 VTARB 22: PRINT "MODO: ";MOS 
(MO) ; 

90  INVERSE HTAB |: FOR L = O 
TO 1L5:Cl = INT ((RS + 7) / 10 
Y + 48:02 + (RB Ff 7) — (ICI — dA 

8) * 10) + 48: VTAB I + 2: PRIN 

T CHAS (Cl); CHARS (C2): NEXT 
NORMAL 

100 VTAR 19: IF MO = O THEN G 

OSURB 740: GOTO 130 

110 FOR J = AS TO RS + 15: FOR 
I = CS TO €5 + 4 

120 VTAB J) - A5 + 2: HTAB (1 - 
CS) * 7 + 4: GOSUB 660: NEXT 
NEXT 

130 VTAB 22: HTAB 1: PRINT “MO 

DO: *:MOS (MO); TAB( 20);"CEL: * 


- CHARS (64 + CC);CR;" * 


140 VTAB 21: HTAB 1: CALL - 8 
68: PRINT "PRONTO!*; TAB( 15);D 
5 (CC,CR) 

160 RETURN 

170 V = CR-R8+ 2:H = (CC -C 


9) * 7 + A:VA = RA - RS + 2:HA 
- (CA - CS) * 7 + & 

180 VTAB VA: HTAB HA:1I = CA:J 
= RA:, GOSUB 660 

182 VTAB V: HTAB H: INVERSE :I 
= CC:;J = CR: GOSUB 660 

183 PRINT : NORMAL 

185 CA = CC:RA = CR 

190 GET I38 
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200 IF IS = cCHAS (8) AND CC > 
1 THEN CC = CC - ): IF CC << C8 
THEN CS = CS - 1: GOSUB 70 

210 IF 18 = cCHAS (21) AND CC 

< 26 THEN CC = CC + 1: IF CC »> 

CS + 4 THEN CS = CS + 1: GOSUB 

70 

220 

< 30 

RS + 
70 

230 IF IS = 

2 1) THEN CR = CR 

S THEN AS = RS - 1: 


CHRS$ (90) AND CR 
IF CR »> 
GOSUB 


JE AB = 
THEN CR = CR + 1: 
15 THEN RS = RS + 1: 


CHAS (65) AND CR 
- 1: IF CRAX R 
GOSUB 70 


240 IF IS = "G” THEN GOSUB 33 
O 

250 IF IS = "Q” THEN GOSUB 30 
00 

260 IF 18 = "I” THEN GOSUB 4] 
O 

270 IF IS = "VU" THENMO=OyO: G 
OSUB 70 

280 IF IS = "C” THEN GOSUB l4 
90 

290 IF 15 = "E” THEN MO = 1: G 
OSUB 70 

300 IF IS = "S” THEN GOSUB 12 
10 

310 IF 158 = "L” THEN GOTO 135 
Ê 

320 GOSUB 130: GOTO 170 

330 VTAB 21: HTAB 1: CALL - 9 
58: PRINT "PARA CEL 2";: INPUT 
AS 

340 IF AS = "" THEN RETURN 
350 Cl = ASC (AS) - 64: IF Cl 
< 1 OR Cl > 26 THEN 330 

360 €2 = VAL ( MIDS (A$,2)): 1 


FC2 < 1 OR C2> 30 THENBI3O 
370 CC = Cl:CS = CL:CA = CL:CR 
= C2:AS = C2:RA = CR 


380 IF CS > 23 THEN CS = 23 

390 IF R8 > 19 THEN RS = 19 

400 GOSUB 70: RETURN 

410 VTAB 21: HTAB 1: CALL - 9 

58: PRINT "NOVO CONTEUDO: *;: I 

NPUT AS 

420 IF AS = "” THEN AS = CHARS 
(128): GOTO 610 

430 IF LEN (AS) > 9 THEN VTA 


est 


> Calculsate 





Como as planilhas 
tradicionais dos 
contadores, nossa 
planilha de cálculo 
eletrônica também 
está dividida em 
células formadas 
por colunas, que 
correspondem aos 
meses do ano, e 
linhas, equivalentes 
a rótulos diversos, 
como, por exemplo, 
receitas e despesas. 
Sua grande vantagem 
reside na forma de 
manipulação dos 
dados, que podem 
ser calculados, 
checados e alterados 
com rapidez. 


B 20: PRINT "PALAVRA MUITO GRAN 


DE!”*; CHARS (7): FOR X = 1 TO 30 

O: NEXT : GOTO 410 

440 IF VAL (AS) < > O THEN 5 

60 

450 BS = LEFTS (AS,1): IF BS < 
"A" OR BS > "Z” THEN 600 

460 CS = MIDS (AS,2,2) 

470 IF VAL (C3S) < 1 0R VAL ( 


CS) > 30 THEN 600 


480 IF VAL (CS) < 1O“THEN AS 
- B9$ + * " + MIDS (A3,2) 

S < "A” OR DDS > "Z” THEN 600 
500 ES = MIDS (AS,5) 

510 IF VAL (E$) < 1 OR VAL ( 


ES) > 30 THEN 600 

520 IF VAL (ES) < 10 THEN AS 

= LEFTS (A$S,4) +" ” + MIDS ( 

AS,5) 

530 08 = MIDS (AS,7,1): FOR D 

= 1 TO LEN (OPS): IF 08 < > 

MIDS (0PS,D,1) THEN NEXT GoT 

O 600 

540 DP = VAL ( RIGHTS (AS,1)): 
IF DP < O OR DP > 7 THEN 600 

550 VTAB 21: HTAB 1: CALL - 9 

58: PRINT "A entrada e uma EQUA 

CAO”":AS = CHARS (131) + A£: GOT 

o 610 

560 VTAB 21: HTAB 1: CALL - 9 

58: PRINT "A entrada e um VALOR 


570 IF RIGHTS (AS,1) = * * TH 
EN AS = LEFTS (AS, LEN (AS) - 

1): GOoTo 570 

580 IF LEN (AS) < 7 THEN AS = 


* * + AS: GOTO 580 


590 AS = QCHRS (129) + AS: GOTO 
610 

600 VTAB 21: HTAB 1: CALL - 9 
58: PRINT "A entrada e um ROTUL 

O" :AS = CHARS (130) + AS 

610 DS(CC,CR) = AS: FORD = 1 T 

O 500: NEXT 

620 IF CC > CX THEN CX = CC 

630 IF CR > RX THEN RX = CR 

640 IF MO = O THEN MO = |: GOS 


UB 70 
650 RETURN 















Nosso personagem está em grandes 
dificuldades: enquanto os cabritos mon- 
teses devoram seu lanche, ele tenta es- 
calar o penhasco, para não morrer afo- 
gado nas águas do mar. Por todo o ca- 
minho, buracos e cobras ameaçam sua 
vida. E, para completar, faremos com 
que ele se veja diante de uma avalanche 
de gigantescas pedras! 

Teremos bastante trabalho na criação 
deste novo problema. Precisaremos co- 
locar uma pedra no topo da encosta, 
empurrá-la morro abaixo, animá-la pa- 
ra que pareça estar rolando, verificar se 
ela atingiu Willie e, finalmente, apagá- 
la, quando chegar ao mar. Como esse 
processo é um tanto complexo, vamos 
apresentá-lo em duas partes. 


A primeira parte da rotina movimen- 
ta a pedra e dá início à sua descida en- 
costa abaixo. A segunda verifica se Wil- 
lie foi atingido e coloca a pedra no to- 
po da encosta. Apresentamos aqui ape- 
nas a primeira parte. Digite-a, mas não 
a execute ainda. Incompleta, a rotina 
não funcionará. 


10 REM orq 58993 
20 REM bar ld a, (57344) 
30 REM cp O 
40 REM 3r z,blm 
50 REM cp 3 
60 REM j5r z.blm 
70 BEM ret 
80 REM bim ld a, (57358) 
90 REM cp 1 
100 REM j3r z,bma 
110 REM ld h1, (57356) 
120 REM ld bc,57120 
130 REM ld a,42 
140 REM call 58217 
1540 REM inc hl 
160 REM ld a,4ás5 
170 REM ld bc, 15616 
180 BEM call 58217 
190 REM ld h1,(57356) 
200 REM ld de,480 
210 REM sbc hli,de 
220 REM yr z,bri 
230 REM ld h1l,(57/356) 
240 REM ld de,22560 
250 REM add hl,de 
260 REM ld a, (hl) 
270 REM cp 15 
280 REM yr z,bri 


pre 290 REM cp 45 


300 
310 
320 


340 
350 
360 
370 
380 
390 
400 
410 
420 


440 





REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


REM 


II Tr 
AVALANCHE: 


jr nz,bok 

ld h1l, (57356) 
ld bce,15616 
ld a,45 

call 58217 

ld de,32 

add hl,de 

ld (57356),hl] 
ld bc,57120 
ld a,42 

cali 58217 
bok ld h1,(57356) 
dec hl 

ld (57356) ,hl 
ld a,l 


Mais e mais problemas se abatem sobre 
Willie. Além das serpentes 

assassinas, dos buracos e da alta da 
maré, pedras gigantescas rolam 

morro abaixo, ameaçando soterrá-lo. 


450 REM lôó (57358),a 
460 REM ret 

470 BEM org 59137 
480 REM bri * 

490 REM org 59097 
500 REM bma * 


Antes de mais nada, a rotina de mo- 
vimentação da pedra verifica se a ava- 
lanche pode ocorrer no nível atual do jo- 
go. Como você deve se lembrar, Willie 
tenta não ser alcançado por pedras, sal- 
tando sobre elas, no nível um e no nivel 
quatro. À variável correspondente ao ni- 
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vel atual do jogo é armazenada na po- 
sição 57344 da memória; o valor O indi- 
ca o nível um; o valor 3 aponta o nível 
quatro. 

Assim, o conteúdo do endereço 
57344 é carregado no acumulador e 
comparado inicialmente com o valor 0, 
e, depois, com 3. Se qualquer um des- 
ses valores estiver presente, a instrução 
jr z,blm faz com que o processador sal- 
te para a rotina de movimentação da 
pedra. Caso contrário, o processador 
encontra a instrução ret e retorna para 
a rotina principal do jogo. 


























VERIFICAÇÃO 

DO NÍVEL DO JOGO 

[5] ROTINA DE MOVIMENTAÇÃO 
DA PEDRA 

e À ANIMAÇÃO COM 


"QUAL DAS PEDRAS? 





Para que possamos animar a pedra, 
existem na memória dois conjuntos de 
dados para dois diferentes desenhos da 
pedra. Quando são impressos alternada- 
mente na tela, eles dão a impressão de 
que a pedra está rolando. 

O processador precisa saber qual foi 
o último desenho impresso na tela, pa- 
ra poder selecionar adequadamente o 
próximo. Obtém essa informação no en- 
dereço 57358, onde há uma variável cu- 
jo conteúdo é O ou 1. Esse valor é car- 
regado no acumulador e, se for igual a 
|, o processador salta para a rotina 
bma, que será dada mais tarde. Caso o 
conteúdo do endereço 57358 seja igual 
a 0, o processador prossegue com a ro- 
tina aqui apresentada. 

Como você poderá perceber, a variá- 
vel no endereço 57358 oscilará — se seu 
conteúdo for 1, será trocado para O e 
vice-versa. Assim, quando o processa- 
dor voltar a utilizar a rotina de movi- 
mentação da pedra, ele irá executar a 
parte do programa que deixou de lado 
na vez anterior, imprimindo o outro de- 
senho da pedra. 

Naturalmente, o primeiro valor do 
conteúdo de 57358 é definido pela roti- 
na de inicialização incumbida de ajus- 
tar o andamento do jogo. 


IMPRIMIR E APAGAR 


Os endereços 57356 e 57357 guardam 
a posição da pedra, cujo valor é carre- 
gado no par HL. O par BC é carregado 
com 57120, que corresponde ao início 
dos dados do primeiro desenho da pe- 
dra. O código 42 (vermelho sobre fun- 
do azul ciano) é carregado em A. 

A rotina print, que começa no ende- 
reço 57217, é chamada. Como de cos- 
tume, ela imprime os dados apontados 
pelo conteúdo de BC com a cor especi- 
ficada pelo conteúdo de A, na posição 
dada pelo conteúdo de HL. 

O par HL é incrementado e passa a 
apontar para a posição à direita da pe- 
dra. Por enquanto, estamos fazendo 
apenas uma pedra rolar numa parte pla- 
na da montanha. Mais tarde, você verá 
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DE VOLTA AO TOPO 
WILLIE FOI ATINGIDO? 


como utilizar um deslocamento de um 
espaço para simular a descida da pedra 
pela encosta, 

O acumulador A é carregado com 45 
(código da cor ciano sobre fundo ciano) 
eopar BC, com 15616. Esta posição es- 
tá na ROM e inicia os dados para um 
espaço vazio. A rotina print é, então, 
chamada, de novo. A operação faz com 
que a pedra anteriormente impressa se- 
ja apagada, Sem isso, veriamos na tela 
uma fileira contínua de pedras. 


FIM DA LINHA | 


A próxima tarefa consiste em verifi- 
car se a pedra atingiu o canto esquerdo 
da tela — nessa direção, ela pode ir além 
da posição 480. Em seguida, o par HL, 
já incrementado, é recarregado com a 
posição armazenada em 57356 e 57357. 
O par DE é carregado com 480 e esse 
valor é subtraído de HL. 

Se o resultado for igual a zero, a pe- 
dra está na posição 480 — ou seja, che- 
gou ao fim da descida. A instrução jr 
z,bri manda, então, o processador para 
a rotina bri. Esta, por sua vez, apaga a 
pedra do final da encosta e reajusta sua 
posição, mandando-a de volta para o to- 
po da montanha. 

Uma vez que não apresentaremos a 
rotina bri no momento, você precisará 
esperar um pouco mais para ver esta 
parte do programa funcionar. 


CHEGOU AO MAR? 





Como a maré está subindo, a pedra 
poderá chegar à água antes de alcançar 
o canto esquerdo da tela. Assim, será 
preciso verificar se a pedra afundou. Ca- 
so tenha se chocado contra a água, de- 
verá ser colocada no topo de novo. 

O método mais simples para verifi- 
car se a pedra atingiu a água consiste em 
analisar a cor da posição de tela imedia- 
tamente abaixo dela. Se for branco so- 
bre azul, a cor do mar, a pedra deve ser 
apagada. O par de registros HL é nova- 
mente carregado com a posição da pe- 
dra que se encontra nos endereços 57356 
e 57357. O par DE, por sua vez, é car- 
regado com 22560. Na verdade, 22528 cu! 

= 

















posições de memória separam a posição 
na tela (que está no arquivo de vídeo) 
da cor que lhe corresponde (que está no 
arquivo de cores). O valor 32 é adicio- 
nado a esse número para que o endere- 
ço da cor da posição de tela na linha 
abaixo — ou 32 caracteres depois — se- 
ja localizado. 

Os conteúdos de HL e DE são soma- 
dos em seguida. Sempre se utilizam es- 
ses pares de registro para fazer adições 
ou subtrações entre números de dois 
bytes, guardando-se o resultado em HL. 
Portanto, o conteúdo da posição de me- 
mória apontada pelo par HL — que 
agora equivale à posição adequada no 
arquivo de cores — é carregado no acu- 
mulador por meio da instrução de en- 
dereçamento indireto ld a,(hl). 

Esse valor é, então, comparado a 15, 
que é o código de branco sobre azul, ou 
seja, a cor do mar. Se o mar estiver abai- 
xo da pedra, a instrução jr,zbri manda 
o processador para a rotina que apaga 
a pedra e a coloca de volta no topo da 
encosta. 





RECONHECIMENTO DO DECLIVE 


Como já temos no acumulador a cor 
do caractere abaixo da pedra, vamos 
aproveitar para verificar se ela está ou 
não no chão. Para isso, o conteúdo do 
acumulador é comparado com 45, có- 
digo correspondente à cor do céu. Se os 
dois valores forem iguais, esta cor está 
por baixo da pedra, e o processador con- 
tinua com a parte seguinte da rotina. 
Caso contrário, a pedra ainda está fir- 
me no chão, e a instrução jr nz,bok faz 
o processador pular para o rótulo bok. 
Este deixa a pedra onde ela está, e sim- 
plesmente acerta as variáveis antes de re- 
tornar. 

Você deve ter reparado que, até ago- 
ra, a pedra só tem se movido para a es- 
querda. Sua posição vertical não foi al- 
terada — ou seja, o declive da encosta 
não foi levado em conta. Portanto, a pe- 
dra só pode estar fora do chão (com a 
cor do céu sob ela) se tiver passado por 
uma seção inclinada com um caractere 
à esquerda — o que significa que preci- 
samos apagá-la e imprimi-la um carac- 
tere abaixo. Em linguagem de máquina, 
tudo isso é feito tão rapidamente que 
nosso olho — ou a tela de TV — não 
tem tempo de reagir. Assim, você não 
poderá ver a pedra em sua posição in- 
termediária, indo para o ar ou voltan- 
do para o chão. 

Depois que o par de registros HL é 
carregado com a posição atual da pedra 
no vídeo, através das posições 57356 e 
57357, o par BC é carregado com os da- 


dos da ROM para um espaço vazio, co- 
mo antes. O acumulador A, por sua vez, 
é carregado com 45 — ciano sobre cia- 
no. A rotina print é, então, chamada pa- 
ra apagar à pedra. 

O par DE é carregado com 32, valor 
que se adiciona ao conteúdo HL, o que 
faz o apontador nesse par de registros 
mover-se uma posição para baixo na te- 
la. Para ajustar a posição da pedra, o 
apontador em HL é copiado de volta 
nos endereços 57356 e 57357. Lembre- 
se de que a instrução Id apenas copia o 
conteúdo de um endereço ou de um re- 
gistro em outro endereço ou registro. O 
conteúdo do lugar de partida permane- 
ce inalterado. Logo, quando BC é car- 
regado com o endereço inicial dos pa- 
drões da primeira figura da pedra, a no- 
va posição na tela ainda está em HL. O 
acumulador é carregado com 42 — ver- 
melho sobre ciano — e a rotina print é 
chamada, imprimindo uma pedra ver- 
melha uma posição abaixo da posição 
anterior de Impressão. 


ROLANDO PELA ENCOSTA 





Quando a pedra é novamente impres- 
sa — não importa se uma posição abai- 
xo ou não —, as variáveis têm que ser 
reajustadas para fazer com que ela pa- 
reça estar rolando morro abaixo. 

Em seguida, o par HL volta a ser car- 
regado com a posição atual da pedra, 
pois a rotina bok pode ter sido chama- 
da diretamente, não se executando a 
parte do programa que muda a figura 
de lugar. Depois de decrementado, o 
conteúdo de HL é carregado em 57356 
e 57357. Na próxima chamada da roti- 
na de movimentação, esse apontador 
indicará uma posição à esquerda, 

Se o conteúdo da variável do tipo de 
pedra — em 57358 — é O, o processa- 
dor continua nesse laço da rotina e im- 
prime a primeira figura. Para que a se- 
gunda figura seja impressa, | é carrega- 
do em 57358 pelo acumulador. 


5 RERRSR E 


A primeira parte da rotina de movi- 
mentação da pedra, aqui apresentada, 
inicia o deslocamento da figura e veri- 
fica se ela colide com alguma coisa. Es- 
sa rotina não funcionará sem a segun- 
da parte, que continua imprimindo a pe- 
dra na tela, Assim, por enquanto, ape- 
nas digite e monte estas linhas; não ten- 
te executá-las. 


10 ORG 19789 
20 BAR LDA 18238 
30 BEQ BLM 


— : o - E a e E = — : E 
pa | Ê : | | 
| 
| 
| | | | | | 
| | E á | i | 


40 CMPA 43 
50 BEQ BLM 
60 ARTS 


70 BLM LDX 18253 
80 LDU 41536 


90 PSHS X 

100 JSR CHARPR 
110  PULS X 

120 LEAX -1,X 

130 CMPX 459344 
140 BEQ BRI 

150 STX 18253 

160 LDA,X 

170 CMPA 4SAA 

180 BEQ BRI 

190  CMPA 4555 

200 BEQ BNH 

210 CMPA 4550 

220 BEQ BNH 

230 LDA 42 

240 STA 182572 

250 BNH LEAX 289,X 
260 LDA ,X 

270  CMPA 4SAA 

280 BEQ BRI 

290  CMPA 4555 

300 BNE BOK 

310 LEAX -33,X 
320 STX 18253 

330 CHARPR EQU 19402 
340 BOK EQU 19861 
350 BRI EQU 19894 


Antes de mais nada, a rotina de mo- 
vimentação da pedra verifica se a ava- 
lanche pode ocorrer no nível atual do jo- 
go. Como você deve se lembrar, Wilhe 
procura não ser atingido pelas pedras, 
saltando sobre elas, no nivel um e no ni- 
vel quatro. A variável correspondente 
ao nível do jogo está armazenada na po- 
sição de memória 18238; o valor O indi- 
ca o nível um; o valor 3 aponta o nível 
quatro. Assim, o conteúdo do endere- 
ço 18238 é carregado no acumulador; se 
o valor for O ou 3 a instrução BEQ faz 
o processador pular diretamente para a 
rotina de movimentação da pedra. Ca- 
so contrário, o processador encontra a 
instrução RET e retorna para a rotina 
principal do jogo. 


APAGUE A PEDRA 





Na posição de memória 18253 está a 
variável que contém a posição atual da 
pedra. Essa posição é carregada no re- 
gistro X, e o número 1536, no registro 
U. Como U é o apontador da pilha do 
usuário, a região da memória situada 
acima do endereço 1536 passa a ser, pa- 
ra todos os fins, a pilha do usuário. A 
posição 1536 pertence à memória de te- 
la, correspondendo a uma parte do céu. 
O processador pula, então, para a sub- 
rotina CHARPR. 

Lembre-se de que essa sub-rotina uti- 





UBE BE 5 a O Ea 1 E! ERES A 


liza os dados da pilha do usuário e im- 
prime na tela um byte de cada vez (um 
caractere apontado por X). Logo, uma 
parte do céu é impressa sobre a pedra, 
apagando-a da tela. 

Observe que, antes da rotina 
CHARPR ter sido chamada, o conteú- 
do de X foi guardado na pilha, mas não 
removido do registrador — seu valor foi 
simplesmente copiado. Procedemos as- 
sim porque a rotina CHARPR pode in- 
terferir com o registro X, já que impri- 
me oito bytes de dados que formam um 
caractere. Ao chamar uma sub-rotina, 
convém sempre guardar na pilha o con- 
teúdo de um registro que precisamos 
preservar. A regra é: na dúvida, empi- 
lhe, você evitará vários erros. 


FIM DA ENCOSTA 





Para obter de volta a posição na te- 
la, basta recuperá-la da pilha da máqui- 
na. A instrução LEAX -1,X decremen- 
ta o conteudo de X, que passa a apon- 
tar para uma posição à esquerda. Esse 
valor é comparado com 5344, endereço 
da posição do canto esquerdo da tela, 
onde a pedra irá bater após ter descido 
toda a encosta. 

Se o valor de X for 5344, a pedra 
atingiu o canto da tela. A instrução BEQ 
BRI manda, então, o processador para 
a rotina BRI, que leva a pedra de volta 
para o topo da montanha. 

Se X não for igual a 5344, a pedra 
não chegou ao canto da tela. Nesse ca- 
so, a instrução STX 1823 armazena a 
próxima posição de impressão — que é 
um caractere à esquerda da anterior na 
variável de posição da pedra, que está 
em 1823, É nesta nova posição que a pe- 
dra será impressa. 


WILLIE FOI ATINGIDO? 





Precisamos, também, averiguar se 
Willie foi atingido pela pedra. Assim, 
antes que a nova pedra seja impressa, 
o conteúdo da posição de tela aponta- 
da por X é carregado no acumulador 
por meio da instrução LDA ,X. Em se- 
guida, esse valor é comparado com 855, 
que é o código de amarelo, a cor do céu, 
e com $50, a cor da língua da cobra. Se 
o caractere contém $55 ou $50 — sen- 
do, portanto, parte do céu ou da cobra 
— q processador pula as duas próximas 
instruções. Caso contrario, a pedra de- 
ve ter atingido Willie — ele é a única fi- 
gura que pode estar em seu caminho. O 
salto então não ocorre. O acumulador 
é carregado com 2. Esse valor é arma- 
zenado na variável chamada dead, que 


indica se Willie morreu ou não. Ela se- 
rá verificada mais tarde, em outra roti- 
na do jogo. 





A PEDRA AFUNDA 


A tarefa seguinte consiste em checar 
se a pedra alcançou a superfície da água. 
Em caso afirmativo, não será preciso 
imprimir uma pedra ali: ela terá que ser 
colocada, novamente, no topo da 
encosta, 

O conteúdo do registro X é adiciona- 
do a 289, para indicar a próxima posi- 
ção na tela, uma linha abaixo, O núme- 
ro 289 resulta da operação 32 x 8 + 32 
+ | — ou seja, para chegar à posição 
imediatamente inferior, devemos contar 
oito linhas de 32 bytes; como a pedra 
ocupa uma linha de pixels acima do 
chão, somamos 32 bytes ao longo da 
memória de tela; finalmente, adiciona- 
mos o número 1 para compensar a sub- 
tração anteriormente feita para deslocar 
o apontador de tela uma posição para 
a esquerda. 

O valor contido nesse caractere é car- 
regado no acumulador por intermédio 
da instrução LDA ,X e, em seguida, 
comparado com $AA, que é o código 
correspondente a azul, a cor do mar. Se 
o mar está nesse caractere, a instrução 
BEQ BRI salta o processador sobre a ro- 
tina que inicializa a volta da pedra à sua 
posição no topo da encosta. 


POSICAO 





Já que é preciso examinar a posição 
de tela imediatamente inferior, podemos 
muito bem verificar se existe céu naque- 
la posição. Para isso, basta comparar o 
ta valor com $55, o código da cor do 
céu, 

Caso não haja céu onde está a pedra 
— ou seja, se ela está no chão —, a ins- 
trução BNE BOK salta para a rotina 
BOK, que imprime a pedra. 

Porém, se existe céu por baixo da pe- 
dra, ela será movida uma posição para 
baixo e uma posição para a esquerda. 
Lembre-se de que agora o apontador de 
tela está indicando uma linha de pixels 
abaixo da última posição da pedra. Lo- 
go, devemos subtrair o valor 32 para 
mover uma linha de pixels, e o valor 1, 
para mover uma posição para a esquer- 
da. Isso é feito de uma só vez pela ins- 
trução LEAX -33,X. 

Para imprimir a pedra no lugar ade- 
quado, o processador trabalha direta- 
mente com a rotina BOK. Essa rotina, 
bem como a rotina BRI, será exposta 
num próximo artigo. 


VU! RR 


A parte da rotina de movimentação 
da pedra que apresentamos a seguir ve- 
rifica o nível do jogo e imprime a pri- 
meira figura da pedra e, se for o caso, 
faz com que ela role morro abaixo. 
Além disso, checa se a pedra chegou ao 
fim da encosta ou se já alcançou a su- 
perfície do mar. A segunda parte da ro- 
tina, que daremos num artigo futuro, 
verifica se Willie foi atingido, imprime 
a segunda pedra e recoloca a figura no 
topo da encosta. 

Digite e monte a primeira parte, mas 
não a execute, pois a rotina só funciona- 
rã quando estiver completa. 


10 orq 54400 

20 ld a, (-5228) 
30 cp O 

40 jr z,bl 

50 cp 3 

60 4r z,bl 

70 ret 

80 bi ld a, (-5195) 
90 cp 1 

100 ãr z,bm 

110 ld h1, (62407) 
120 ld de, (-5200) 
130 add hl,de 
140 ld a,13 

150 push hl1 

160 call 77 

170 pop h1 

180 inc hl 

190 ld a,2455 

200 call 77 

210 ld hã, (-5200) 
220 ld de,480 
230 abc hl,de 

240 jr z,mo 

250 ld hn), (62407) 
260 ld de, (-5200) 
270 add hl,de 

280 ld de,32 

290 add hl,de 

300 call 74 

310 cp 72 

320 jr z,;mo 

330 cp 76 

340 jr z,mo 

350 cp 255 

360 3r nz,bo 

370 ld hl, (62407) 
380 ld de, (-5200) 
390 add hl,de 
400 ld a,255 

410 push de 

420 call 77 

430 pop de 

440 ld n1,32 

450 add hl,de 

460 ld (-5200),h1 
aro ld de, (62407) 
480 add hl,de 
490 ld a,13 

500 call 77 

510 bo ld h1l,(-5200) 
520 dec hl 








530 ld (-5200),hl 
540 ld a,l 

550 ld (-5195),a 
560 ret 

570 bm call -11006 
580 ret 

590 mo call -10953 
600 ret 

610 end 


Antes de mais nada, a rotina verifi- 
ca se a avalanche de pedras é necessária 
no nível atual do jogo. Lembre-se de que 
Willie tenta escapar das pedras nos ni- 
veis um e quatro. A variável que indica 
o nível do jogo está em -5228 — o valor 
O corresponde ao nível um e o valor 3, 
ao nivel quatro, 

O conteúdo desse endereço é carre- 
gado no acumulador e comparado ini- 
cialmente com 0 e, depois, com 3, Se al- 
gum desses valores estiver presente, a 
instrução jr z,bl faz o processador sal- 
tar para a rotina de movimentação da 
pedra. Caso contrário, o processador 
encontra a instrução ret e retorna ao 
programa principal do jogo. 





QUAL DAS PEDRAS? 


Para criar o efeito de movimento, uti- 
lizamos dois padrões diferentes para a 
pedra, imprimindo-os alternadamente. 
O processador precisa saber qual foi a 
última figura impressa para poder sele- 
cionar adequadamente a seguinte. Ob- 
tém essa informação no endereço 5195, 
onde existe uma variável cujo conteúdo 
é0ou 1. Esse valor é carregado no acu- 
mulador e, se for igual a 1, o processa- 
dor salta para a rotina bm que será apre- 
sentada mais tarde. Caso contrário, ele 
prossegue com a rotina exposta aqui. 

Como você vai perceber, o valor de 
-5195 é trocado sempre que se chama a 
rotina de movimentação. Portanto, O 
processador executa uma parte do pro- 
grama de cada vez. 


| IMPRESSÃO Eta! 


A posição da pedra é armazenada nos 
endereços -5200 e -5199. Seu valor é car- 
regado no par DE. O endereço inicial da 
Tabela de Nomes (TN), que está arma- 
zenado nos endereços 62407 e 62408, é 
carregado em HL. A soma dos valores 
nesse par de registros fornece o valor 
adequado na TN. 

O acumulador A é carregado com o 
código do padrão que forma o primei- 
ro desenho da pedra. Como você verá 
na segunda parte da rotina, a outra pe- 


[NERD 


dra é formada por dois padrões. Em se- 
guida, a rotina 77 da ROM é chamada, 
encarregando-se de colocar o valor con- 
tido em A no endereço da VRAM apon- 
tado pelo par HL — ou seja, a rotina 
imprime a pedra na tela do computador. 


- FIMDA ENCOSTA 


A etapa seguinte consiste em verifi- 
car se a pedra atingiu o fim da encosta. 
Para isso, sua posição é transferida de 
-5200 e -5199 para o par HL e o valor 
480 é carregado em DE, que representa 
a última posição que a pedra pode ocu- 
par. Esse valor é subtraído de HL. Se 
o resultado for zero, a pedra está na po- 
sição 480 — em outras palavras, chegou 
ao fim da encosta. A instrução jr z;mo 
manda, então, o processador para a ro- 
tina mo, que apresentaremos mais tar- 
de. Essa rotina encarrega-se de apagar 
a pedra e levá-la de volta para o topo 
da montanha, 





A PEDRA AFUNDOU? 


Como a maré está subindo rapida- 
mente, é provável que a pedra atinja a 
água antes de chegar ao fim do morro. 

Precisamos verificar se ela afundou. 
Em caso afirmativo, a pedra será reco- 
locada no topo da encosta. 

A rotina 74 da ROM cuida disso. Se 
a chamarmos com um endereço da 
VRAM em HL, ela devolverá o conteú- 
do desse endereço ao acumulador. 

Portanto, carregamos o endereço ini- 
cial da TN da VRAM em HL. A posi- 
ção da pedra na tela é carregada em DE. 
Adicionando os conteúdos de DE e HL, 
obtemos a posição da pedra na TN, Po- 
rém, como estamos interessados no que 
existe abaixo da pedra, somamos 32 ao 
conteúdo de HL. 

A rotina 74 é chamada e fornece o 
padrão da figura que se encontra nessa 
posição. Seu valor é comparado com 72 
e 76, que são os códigos dos dois pa- 
drões de mar existentes. Se o mar está 
abaixo da pedra, a instrução jr Zz;mo 
manda o processador para a segunda 
parte da rotina, que apaga a pedra e 
ajusta a posição para o topo do morro. 





POSIÇÃO 


Uma vez que temos no acumulador 
o código do padrão que está abaixo da 
pedra, não custa verificar se ele corres- 
ponde ao céu. Para isso, comparamos 
o conteúdo do acumulador com 255, 
que é o código do padrão de céu. 








Se não há céu abaixo da pedra — ou 
seja, se ela ainda está no chão — a ins- 
trução jr nz,bo faz o processador saltar 
ao rótulo bo, onde as variáveis são ajus- 
tadas antes de retornar. Caso contrário, 
o processador continua com a parte se- 
guinte da rotina, 





A PEDRA DESCE 


Você deve ter reparado que até ago- 
ra a pedra só tem se movido para a es- 


querda — o declive da encosta não foi 


levado em conta. A pedra só pode estar 
fora do chão (com a cor do céu sob ela) 
se acabou de passar por uma inclinação 
— o que significa que precisamos apagá- 
la é imprimi-la uma posição abaixo. A 
rapidez com que essa tarefa é executa- 
da em código de máquina nos dá a im- 
pressão de que a pedra permaneceu na 
superficie da encosta. 

O endereço inicial da TN da VRAM 
é carregado em HL. O par DE recebe 
a posição atual da pedra e esse valor é 
somado em HL. Em seguida o código 
do padrão de céu é carregado em À € 
a rotina 77 da ROM é chamada. Com 
esse procedimento, a pedra é apagada 
da posição que ocupava na tela. 

O valor em DE foi preservado na pi- 
lha e somado ao número 32 em HL, pa- 
ra atualizar a posição da pedra nos en- 
dereços- 5200 e -5199e levá-la uma po- 
sição abaixo da anterior. Finalmente, 


- soma-se o endereço inicial da TN da 


VRAM em HL e carrega-se o acumula- 
dor com o padrão da pedra. A rotina 77 
é, então, chamada. Com isso, fizemos 
a pedra descer uma posição, permane- 
cendo firme junto à encosta. 





ROLANDO PELA ENCOSTA 


Quer a pedra tenha descido, quer 
não, as variáveis que definem sua posi- 
ção devem ser ajustadas para fazer com 
que ela pareça estar rolando pela encos- 
ta da montanha. 

O par HL é mais uma vez carregado 
com a posição da pedra. Em seguida, 
seu valor é decrementado e devolvido 
aos endereços = 5200 e -5199. Quando a 
rotina responsável pela movimentação 
da pedra for chamada novamente, a fi- 
gura terá sido deslocada uma posição 
para a esquerda. 

O processador continuou a executar 
essa parte da rotina e imprimiu na tela 
a primeira figura da pedra porque o con- 
teúdo do endereço - 5195 era O. Para que 
depois imprima a outra figura, o valor 
| será carregado em -5195 pelo acu- 
mulador. 
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PROGRAMAÇÃO BASIC ] 


Simulação e previsão. Simulação de números randômicos. 
Amostragem e pesquisa. Simulação de uma loteria esportiva. 


PERIFÉRICOS 
O que é um disco rígido. Capacidade e velocidade. 
Como conectar um disco rígido. Aplicações. 


APLICAÇÕES 


Planejamento de uma planilha eletrônica. Usos gerais. 
Orçamento familiar. Digitação do programa. 


PROGRAMAÇÃO DE JOGOS 
As regras do Jogo da Senha. Definição das cores. 
Escolha a melhor estratégia. 
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